サンプルマクロは、C:\内のファイル名の一覧をアクティブシートに作成します。
実行するとアクティヴシートの内容は一度クリアされてから表が作成されるので、
必要な内容が記述されているシートではバックアップを取ってから実行してください。
Sub Sample()
Dim myFileName As String
Const myDir As String = "C:\"
Application.ScreenUpdating = False
Cells.Clear
Range("A1").Value = "ファイル名"
'隠しファイルとシステムファイルも表示
myFileName = Dir(myDir & "*", vbHidden + vbSystem)
While myFileName <> vbNullString
Cells(Rows.Count, 1).End(xlUp).Offset(1).Value _
= myFileName
myFileName = Dir()
Wend
Columns(1).AutoFit
Application.ScreenUpdating = True
End Sub
特定のフォルダの中にあるファイルに対して、一括して何かをしたい場合には、
上記のようにDir関数を利用します。
また、その他にもFSO(File Search Object)を利用する方法もあります。
|