こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBSでExcelシートのコピー

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

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

投稿日時 - 2005-03-06 13:26:20

QNo.1253793

困ってます

質問者が選んだベストアンサー

こんな感じでしょうか?

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-06 17:34:18

お礼

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

投稿日時 - 2005-03-07 21:06:44

このQ&Aは役に立ちましたか?

4人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問