| 投稿日 | ： 2004/10/16(Sat) 14:07 |
| 投稿者 | ： けい |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： VBからエクセル操作時、ワークシート名を変更すると2回目にエラーが出る。 |
VBからエクセル操作時にコマンドボタン１で下記のプログラムのように
エクセルを開い後にワークシート名を変更します。
その後、コマンドボタン２でエクセルを終了します。
ここまでうまくいきます。
しかし、もう一度コマンドボタン１を押すとエラーになります。
「worksheetsメソッドは失敗しました。Globalオブジェクト」と表示します。
ワークシート名を変更しなければうまくいきますが、どうしても変更したいです。
どなたか詳しい方、アドバイスお願いします。
Private Sub Command1_Click()
Set xlApp = New Excel.Application '扱うアプリケーションがExcelである事を明示
Set xlBook = xlApp.Workbooks.Add '新規 Workbook を作成
Set xlSheet1 = xlBook.Worksheets("Sheet1") 'ワークシートを開く（新規の場合はAddを使う。）
Worksheets("Sheet1").Name = "あいうえお" 'ワークシート名をあいうえおに変更
End Sub
Private Sub Command2_Click()
xlBook.SaveAs "C:\Program Files\ABC.xls" 'Workbook を保存
xlBook.Close 'Workbook を閉じる
xlApp.Quit 'Quit メソッドを使ってExcelを終了
Set xlApp = Nothing 'オブジェクトの解放
Set xlBook = Nothing
Set xlSheet1 = Nothing
End Sub