VBA シート取り込みbusyukei

Sub CopyDataFromFiles()
Dim TemplateFile As String
Dim TemplateSheet As Worksheet
Dim AFilePath As String
Dim BFilePath As String
Dim AWorkbook As Workbook
Dim BWorkbook As Workbook
Dim ASheet As Worksheet
Dim BSheet As Worksheet

' テンプレートファイルのパスを取得
TemplateFile = ThisWorkbook.Path & "\" & "テンプレート.xlsm"

' テンプレートシートを取得
Set TemplateSheet = ThisWorkbook.Sheets("テンプレートシート")

' A.xlsxのパスを取得
AFilePath = TemplateSheet.Range("A1").Value

' B.xlsxのパスを取得
BFilePath = TemplateSheet.Range("A2").Value

' A.xlsxを開く
Set AWorkbook = Workbooks.Open(AFilePath)
Set ASheet = AWorkbook.Sheets("Sheet1")

' B.xlsxを開く
Set BWorkbook = Workbooks.Open(BFilePath)
Set BSheet = BWorkbook.Sheets("Sheet1")

' A.xlsxの内容をテンプレートファイルに値貼り付け
ASheet.UsedRange.Copy
TemplateSheet.Range("B1").PasteSpecial xlPasteValues

' B.xlsxの内容をテンプレートファイルに値貼り付け
BSheet.UsedRange.Copy
TemplateSheet.Range("B2").PasteSpecial xlPasteValues

' コピー元のファイルを閉じる
AWorkbook.Close SaveChanges:=False
BWorkbook.Close SaveChanges:=False

' 完了メッセージを表示
MsgBox "データのコピーが完了しました。", vbInformation
End Sub