Option Explicit
Public Sub 集計ブックコピー()
    Const book1 As String = "収支データブック.xlsx"
    Const book2 As String = "明細ブック.xlsx"
    Const Sheet1 As String = "推移"
    Const sheet2 As String = "明細"
    Const Sheet3 As String = "Sheet1"
    Dim sheet_name As String
    Dim wb As Workbook
    Call delete_sheet(Sheet1)
    Call delete_sheet(sheet2)
    Call delete_sheet(Sheet3)
 
    Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & book1)
    wb.Worksheets(Sheet1).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    ThisWorkbook.Worksheets(Worksheets.Count).Name = Sheet1
    wb.Worksheets(sheet2).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    ThisWorkbook.Worksheets(Worksheets.Count).Name = sheet2
    wb.Close
 
    Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & book2)
    wb.Worksheets(Sheet3).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    ThisWorkbook.Worksheets(Worksheets.Count).Name = Sheet3
    wb.Close
    MsgBox ("完了")
End Sub
'指定されたシートを削除
Private Sub delete_sheet(ByVal sheet_name As String)
    Dim i As Long
    For i = 1 To ThisWorkbook.Worksheets.Count
        If LCase(sheet_name) = LCase(ThisWorkbook.Worksheets(i).Name) Then
            Application.DisplayAlerts = False       'シート削除時の警告を出さないようにする
            ThisWorkbook.Worksheets(i).Delete
            Application.DisplayAlerts = True        'シート削除時の警告を出すようにする（元に戻す）
            Exit Sub
        End If
    Next
End Sub
 

T3B0aW9uIEV4cGxpY2l0ClB1YmxpYyBTdWIg6ZuG6KiI44OW44OD44Kv44Kz44OU44O8KCkKICAgIENvbnN0IGJvb2sxIEFzIFN0cmluZyA9ICLlj47mlK/jg4fjg7zjgr/jg5bjg4Pjgq8ueGxzeCIKICAgIENvbnN0IGJvb2syIEFzIFN0cmluZyA9ICLmmI7ntLDjg5bjg4Pjgq8ueGxzeCIKICAgIENvbnN0IFNoZWV0MSBBcyBTdHJpbmcgPSAi5o6o56e7IgogICAgQ29uc3Qgc2hlZXQyIEFzIFN0cmluZyA9ICLmmI7ntLAiCiAgICBDb25zdCBTaGVldDMgQXMgU3RyaW5nID0gIlNoZWV0MSIKICAgIERpbSBzaGVldF9uYW1lIEFzIFN0cmluZwogICAgRGltIHdiIEFzIFdvcmtib29rCiAgICBDYWxsIGRlbGV0ZV9zaGVldChTaGVldDEpCiAgICBDYWxsIGRlbGV0ZV9zaGVldChzaGVldDIpCiAgICBDYWxsIGRlbGV0ZV9zaGVldChTaGVldDMpCgogICAgU2V0IHdiID0gV29ya2Jvb2tzLk9wZW4oRmlsZW5hbWU6PVRoaXNXb3JrYm9vay5QYXRoICYgIlwiICYgYm9vazEpCiAgICB3Yi5Xb3Jrc2hlZXRzKFNoZWV0MSkuQ29weSBhZnRlcjo9VGhpc1dvcmtib29rLldvcmtzaGVldHMoVGhpc1dvcmtib29rLldvcmtzaGVldHMuQ291bnQpCiAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhXb3Jrc2hlZXRzLkNvdW50KS5OYW1lID0gU2hlZXQxCiAgICB3Yi5Xb3Jrc2hlZXRzKHNoZWV0MikuQ29weSBhZnRlcjo9VGhpc1dvcmtib29rLldvcmtzaGVldHMoVGhpc1dvcmtib29rLldvcmtzaGVldHMuQ291bnQpCiAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyhXb3Jrc2hlZXRzLkNvdW50KS5OYW1lID0gc2hlZXQyCiAgICB3Yi5DbG9zZQoKICAgIFNldCB3YiA9IFdvcmtib29rcy5PcGVuKEZpbGVuYW1lOj1UaGlzV29ya2Jvb2suUGF0aCAmICJcIiAmIGJvb2syKQogICAgd2IuV29ya3NoZWV0cyhTaGVldDMpLkNvcHkgYWZ0ZXI6PVRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzLkNvdW50KQogICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMoV29ya3NoZWV0cy5Db3VudCkuTmFtZSA9IFNoZWV0MwogICAgd2IuQ2xvc2UKICAgIE1zZ0JveCAoIuWujOS6hiIpCkVuZCBTdWIKJ+aMh+WumuOBleOCjOOBn+OCt+ODvOODiOOCkuWJiumZpApQcml2YXRlIFN1YiBkZWxldGVfc2hlZXQoQnlWYWwgc2hlZXRfbmFtZSBBcyBTdHJpbmcpCiAgICBEaW0gaSBBcyBMb25nCiAgICBGb3IgaSA9IDEgVG8gVGhpc1dvcmtib29rLldvcmtzaGVldHMuQ291bnQKICAgICAgICBJZiBMQ2FzZShzaGVldF9uYW1lKSA9IExDYXNlKFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKGkpLk5hbWUpIFRoZW4KICAgICAgICAgICAgQXBwbGljYXRpb24uRGlzcGxheUFsZXJ0cyA9IEZhbHNlICAgICAgICfjgrfjg7zjg4jliYrpmaTmmYLjga7orablkYrjgpLlh7rjgZXjgarjgYTjgojjgYbjgavjgZnjgosKICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMoaSkuRGVsZXRlCiAgICAgICAgICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlBbGVydHMgPSBUcnVlICAgICAgICAn44K344O844OI5YmK6Zmk5pmC44Gu6K2m5ZGK44KS5Ye644GZ44KI44GG44Gr44GZ44KL77yI5YWD44Gr5oi744GZ77yJCiAgICAgICAgICAgIEV4aXQgU3ViCiAgICAgICAgRW5kIElmCiAgICBOZXh0CkVuZCBTdWIK