VBScriptで異なるExcelのシートを連結する方法

【目的】
VBScriptで異なるExcelのシートを連結します。



【手順１】
１．「Excel1.xlsx」「Excel2.xlsx」というファイルを以下の様に作成。

【手順２】
１．「Excelシート連結.vbs」というファイルを作成し、以下の内容を記述。

Set fso = CreateObject("Scripting.FileSystemObject")
Set workDir = fso.GetFolder(".")

Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = false
excelApp.Workbooks.Open(workDir.Path & "\Excel1.xlsx")
excelApp.Workbooks.Open(workDir.Path & "\Excel2.xlsx")

Set excel1 = excelApp.Workbooks("Excel1.xlsx")
Set excel2 = excelApp.Workbooks("Excel2.xlsx")
Call excel2.Worksheets.Copy( ,excel1.Worksheets(excel1.Worksheets.Count))

excel1.Worksheets(1).Activate
excel1.SaveAs workDir.Path & "\Result.xlsx"
excelApp.Workbooks.Close

【手順３】
１．「Excelシート連結.vbs」を「VBScriptをGUI版で動かす方法」で実行。
２．以下の様に連結されたファイルが出力されます。

【手順４】
１．以下の様にシートが連結されていれば成功です。

以上です。