Sub 小計() Application.ScreenUpdating = False Dim path, fso, file, files path = "C:\Users\konpi\Desktop\VBA" 'path = ThisWorkbook.Path & "/フォルダ名/" '相対パスの場合 Set fso = CreateObject("Scripting.FileSystemObject") Set files = fso.GetFolder(path).files 'フォルダ内の全ファイルについて処理 For Each file In files 'ファイルを開いてブックと…