VBSでExcelシートのコピー

VBSである決まったExcelシートを別なExcelファイルにシートコピーできる方法はないですか？

やりたいことは、Excelファイル「A.xls」内の「Sheet1」というシートをExcelファイル「B.xls」の一番末尾に「Sheet1」をコピーする、です。
（Excelのシート名上で右クリック→「移動またはコピー」→移動先ブック名を選択→「末尾へ移動」、「コピーを作成」にチェック、と同じことをVBS上で行いたいのですが。）

No.1 ベストアンサー 回答者： TAGOSAKU7 回答日時： 2005/03/06 17:34

こんな感じでしょうか？

Dim strFileDst
Dim strFileSrc
Dim strCopySheet


strFileDst = "C:\book1.xls" 'コピーする方
strFileSrc = "C:\book2.xls" 'コピーされる方

strCopySheet = "Sheet1" 'コピーする方のシート名


Call CopyExec



Sub CopyExec()
Dim objXls
Dim objBookDst
Dim objBookSrc

Set objXls = CreateObject("Excel.Application")

Set objBookDst = objXls.Workbooks.Open(strFileDst)
Set objBookSrc = objXls.Workbooks.Open(strFileSrc)

Call objBookDst.Sheets(strCopySheet).Copy(,objBookSrc.Sheets(objBookSrc.Sheets.Count))

objBookDst.Close False
objBookSrc.Close True
objBookDst.Close
objBookSrc.Close

objXls.Quit

Set objXls = Nothing


End Sub

この回答へのお礼

できました。ありがとうございました。

お礼日時：2005/03/07 21:06