オートメーションエラーを解決するには？ (ID:109790)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VBからEXCELを操作しています。 VB上のリストから選択されたものを、既存のEXCELブックのセルに入力していく のですが、オートメーションエラーとなってしまいます。 Dim xlsApp As Object Dim xlsBook As Object Dim xlsSheet As Object Set xlsApp = GetObject(, "Excel.Application")' 既に起動しているExcelへの参照 Set xlsBook = xlsApp.ActiveWorkbook ' アクティブなブックを参照 Set xlsSheet = xlsBook.WorkSheets(1) ' Sheet1を参照 ・・・ というような感じで処理しているのですが、 Set xlsBook = xlsApp.ActiveWorkbook のところで、このようなエラーが出てしまいます。 既存のエクセルブックについては、この前段階の処理で起動させています。 しかし、適当な所（例えば1番初めとか）にブレークポイントを打って、 1行1行確認しながら処理させると、このエラーは出ません。 一体何が原因なのでしょうか？ VB6 Win2000 EXCEL2000にて処理しています。 よろしくお願い致します。