投稿時間：2004/03/19(Fri) 20:47
投稿者名：お〜か
ＵＲＬ ：
タイトル：Ｅｘｃｅｌオブジェクトについて
はじめまして。
ＶＢを操作し始めたばかりで行き詰まってしまいました。
以下のような操作を行おうと思っております。
/////////////////////////////////////////////////
Set objExcelApp = CreateObject("Excel.Application")
Set objBook1 = objExcelApp.Workbooks.Add
Set objBook2 = objExcelApp.Workbooks.Add
Set objTempl = objExcelApp.Workbooks.Add("D:\aaa.xls")
'--------------------------------------------
'- Ａ. objTemplのWorksheetをobjBook2へ挿入
'--------------------------------------------
objTempl.Worksheets.Copy After:=objBook2.Worksheets(1)
'--------------------------------------------
'- Ｂ． objTemplのWorksheetをobjBook1へ挿入
'--------------------------------------------
objTempl.Worksheets.Copy After:=objBook1.Worksheets(1)
'--------------------------------------------
'- Ｃ．objBook1のsheet1を削除する
'--------------------------------------------
objBook1.Worksheets(1).Select
objExcelApp.ActiveWindow.SelectedSheets.Delete
'--------------------------------------------
'- Ｄ．objBook2のsheet1を削除する
'--------------------------------------------
objBook2.Worksheets(1).Select
objExcelApp.ActiveWindow.SelectedSheets.Delete
【環境】ＷｉｎＸＰ ＶＢ６．０（ＳＰ５） ｏｆｆｉｃｅ２０００
−以上−
これを行うとＤの「objBook2.Worksheets(1).Select」でエラーとなって
しまいます。
また、Ａ→Ｄ→Ｂ→Ｃの順番に行えばうまくいきます。
どのような原因が考えられるのでしょうか？
以上、よろしくお願いします。
|