Sub CopySheetsFromFolders() Dim sourceFolder As String Dim targetWorkbook As Workbook Dim sourceWorkbook As Workbook ' Bsukei.xlsmのパスを取得 'targetWorkbookPath = ThisWorkbook.Path '画面更新停止、警告画面停止 Application.ScreenUpdating =…