Excel_Sheet_Copy_To_Another_Book.vbs

' https://oshiete.goo.ne.jp/qa/1253793.html
' ↑ 上記WebページはSourceとDestinationの単語の理解に誤りがある。以下のスクリプトは訂正している。
' Excel Srcファイルの指定SheetをDstファイルのシートの最後に追加(コピー)する。但し、Dstファイルの既存シートはそのままとする。

Dim strFileSrc
Dim strFileDst
Dim strCopySheet

' strFileSrc = "C:\book1.xls" 'コピーする方
strFileSrc = "C:\Users\Someone\test\folder1\SourceFile1.xlsx"
' strFileDst = "C:\book2.xls" 'コピーされる方
strFileDst = "C:\Users\Someone\test\folder1\TargetFile1.xlsx"

' strCopySheet = "Sheet1" 'コピーする方のシート名
strCopySheet = "あいうえお" 'コピーする方のシート名

Call CopyExec


Sub CopyExec()
    Dim objXls
    Dim objBookSrc
    Dim objBookDst
    Set objXls = CreateObject("Excel.Application")
    Set objBookSrc = objXls.Workbooks.Open(strFileSrc)
    Set objBookDst = objXls.Workbooks.Open(strFileDst)
    Call objBookSrc.Sheets(strCopySheet).Copy(,objBookDst.Sheets(objBookDst.Sheets.Count))
    objBookSrc.Close False
    objBookDst.Close True
    objXls.Quit
    Set objXls = Nothing
End Sub

MsgBox "処理終了"