VBAでディレクトリ内のファイルを反復処理して読み込む

2年 ago
桜, 春樹
1 minute

VBA では Dir 関数を使用して、フォルダ内のファイルを順番に読み取ることができます。以下に、フォルダ内のファイルを順番に読み取り、ファイル名を Excel ワークシートに出力するサンプル コードを示します。

Sub LoopThroughFiles()
Dim folderPath As String
Dim fileName As String
Dim i As Integer
' 设置文件夹路径
folderPath = "C:\Path\To\Folder\"
' 初始化文件名变量
fileName = Dir(folderPath & "*.*")
' 清空工作表
Sheets("Sheet1").Range("A1").CurrentRegion.ClearContents
' 循环读取文件
i = 1
Do Until fileName = ""
' 输出文件名到工作表
Sheets("Sheet1").Cells(i, 1).Value = fileName
' 获取下一个文件名
fileName = Dir
i = i + 1
Loop
End Sub

上記のサンプルコードでは、まずfolderPath変数に処理対象のフォルダのパスを設定します。そして、Dir関数を使用して最初のファイル名を取得し、fileName変数に代入ます。次に、Do Untilループを使用してフォルダ内の各ファイルを繰り返し処理し、ファイル名をExcelワークシートの1列目に書き出します。最後に、Dir関数を使用して次のファイル名を取得し、全てのファイルの処理が終わるまでループを繰り返します。

bannerAds