フォルダを選んで拡張子をxlsからxlsxに変換 削除
| Message#3 2014年12月16日(火)11時31分 From: acos |
| 相当「あく」の強いプログラムをコピペしましたね。 すこし「あく」を薄めてあります。 Sub ColumAutofit() Dim InputDirectory As String, FileName As String Dim myWorkbook As Workbook If _ MsgBox(Prompt:="列幅調整対象のxlsx形式ファイルが格納されたフォルダを入力してください。", _ Buttons:=vbOKCancel + vbInformation, Title:="入力ディレクトリ指定") = vbCancel Then Exit Sub End If With Application With .FileDialog(msoFileDialogFolderPicker) If .Show = True Then InputDirectory = .SelectedItems(1) If InputDirectory = "" Then Exit Sub End With .DisplayAlerts = False .ScreenUpdating = False End With FileName = Dir(InputDirectory & "\*.xlsx") Do While FileName <> "" With Workbooks.Open(InputDirectory & "\" & FileName) For Each sh In .Worksheets sh.UsedRange.EntireColumn.AutoFit Next sh .Close SaveChanges:=True End With FileName = Dir() Loop With Application .DisplayAlerts = False .ScreenUpdating = False End With MsgBox Prompt:="終了しました。", Buttons:=vbInformation, Title:="終了" End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
