vba:excel:open-files-in-folder
フォルダ内のファイルを順番に開く
Dim path, fso, file, files Dim wb As Workbook path = ThisWorkbook.path & "/hoge" Set fso = CreateObject("Scripting.FileSystemObject") Set files = fso.GetFolder(path).files For Each file In files Set wb = Workbooks.Open(file) '処理を記述 ActiveWorkbook.Close SaveChanges:=False Next file
スポンサーリンク
vba/excel/open-files-in-folder.txt · 最終更新: 2023/11/15 23:24 by Shohei Okuda