Sub CopySheetsToExistingWorkbooks()
Dim SourceWorkbook As Workbook
Dim ASheet As Worksheet
Dim BSheet As Worksheet
Dim TargetAWorkbook As Workbook
Dim TargetBWorkbook As Workbook
' S.xlsmを開く
Set SourceWorkbook = Workbooks.Open("S.xlsm")
' Aシートを取得
Set ASheet = SourceWorkbook.Sheets("A")
' A.xlsxを開く
Set TargetAWorkbook = Workbooks.Open("A.xlsx")
' Aシートの値のみをコピーしてMAシートに貼り付け
ASheet.UsedRange.Copy
TargetAWorkbook.Sheets("MA").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False ' コピー範囲をクリア
' A.xlsxを保存して閉じる
TargetAWorkbook.Save
TargetAWorkbook.Close
' Bシートを取得
Set BSheet = SourceWorkbook.Sheets("B")
' B.xlsxを開く
Set TargetBWorkbook = Workbooks.Open("B.xlsx")
' Bシートの値のみをコピーしてMA_14シートに貼り付け
BSheet.UsedRange.Copy
TargetBWorkbook.Sheets("MA_14").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False ' コピー範囲をクリア
' B.xlsxを保存して閉じる
TargetBWorkbook.Save
TargetBWorkbook.Close
' S.xlsmを閉じる
SourceWorkbook.Close
End Sub
