VBAでディレクトリ内のファイル名を取得する方法

FileSystemObject オブジェクトの GetFolder メソッドでフォルダーオブジェクトを取得し、Files コレクションを使用してファイル コレクションを取得することで、VBA でフォルダー内のファイル名を取得できます。こちらがそのサンプル コードです。

Sub GetFilesInFolder()
Dim fso As Object
Dim folder As Object
Dim file As Object
' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
' 获取指定文件夹对象
Set folder = fso.GetFolder("C:\YourFolderPath")
' 循环遍历文件集合
For Each file In folder.Files
' 输出文件名
Debug.Print file.Name
Next file
' 释放对象
Set file = Nothing
Set folder = Nothing
Set fso = Nothing
End Sub

「C:\YourFolderPath」部分を、ファイル名を取得したいフォルダパスに置き換えてください。 上記のコードを実行すると、フォルダ内のファイル名がVBAのイミディエイトウィンドウに出力されます。