VBScriptでEXCELのシートをコピーする

質問初めてなので上手く伝えられるかわからないのですが、
私がやりたいことは、EXCELのテンプレートにデータを書き込むのですが、ブック１つでシートが２枚。
テンプレートにシートをあらかじめ用意したのですが、
１シート目はきちんと出るのに対し、２シート目は行の追加の前のSelectで落ちます。
データは異なりますが項目などは同じなので、１シート目をコピーして、データを書き換えてもいいし、
私が出来なかった２シート目のSelect方がわかるならそれでいいのですが、どうでしょうか？
'◆行を増やしていく
If iCnt > 0 Then
lngRow2(0) = ROW_TOP_03 + iCnt
objExcelSheet2.Rows(ROW_TOP_03).Select
objExcelApp.Selection.Copy
objExcelSheet2.Rows(lngRow2(0)).Select
objExcelApp.Selection.Insert Shift = -4121 '行の挿入
objExcelSheet2.Rows(lngRow2(0)).Select
objExcelSheet2.Paste
・
・

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/10/28 19:28

該当処理のシートのセレクトってしていますか？

この回答へのお礼

それでした！
シートをセレクトしたらデータがちゃんと入りました。
本当にありがとうございます！！
わーーーーーーーーーーい。

お礼日時：2004/10/29 10:00