VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 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」でエラーとなって
しまいます。
また、Ａ→Ｄ→Ｂ→Ｃの順番に行えばうまくいきます。
どのような原因が考えられるのでしょうか？
以上、よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）