VBAを使って、フォルダ内のすべてのファイルを一度に開く

1年 ago
夏樹, 風
1 minute

VBAを使用してフォルダー内のファイルをまとめて開くマクロを書くことができます。以下にサンプルコードを示します。

Sub OpenFilesInFolder()
Dim FolderPath As String
Dim FileName As String
Dim wb As Workbook
' 设置文件夹路径
FolderPath = "C:\Your\Folder\Path\"
' 获取文件夹中的第一个文件名
FileName = Dir(FolderPath & "*.*")
' 循环遍历文件夹中的文件
Do While FileName <> ""
' 打开文件
Set wb = Workbooks.Open(FolderPath & FileName)
' 在这里可以添加您需要执行的操作，比如读取数据、复制粘贴等
' 关闭文件
wb.Close SaveChanges:=False
' 获取下一个文件名
FileName = Dir
Loop
End Sub

上記のコードを使用するには、FolderPath変数をあなたのフォルダのパスに置き換え、実行する処理をループに追加します。たとえば、wb.Sheets(“Sheet1”).Range(“A1”).Valueを使用して、ワークブック内のデータを読み取ることができます。

bannerAds