CreateObjectでエラー発生(Excel2007が悪い?)
下記の環境、プログラムで"ActiveXコンポーネントを作成できません。"のエラーが出て困っています。
毎回ではなく、「1回目はエラーで、2回目以降は出ない」「たまに出る」など、動作が一定ではありません。
Excel2003では問題なく動作するので、Excelのバージョンを変更しようかとも考えています。(高価で入手しにくいので踏み切れずにいます。)
Excel2007とVBの問題なのでしょうか?
プログラムの変更で解決すればいいのですが…。
ご教示ください!
****** 環境 ******
OS:WindowsXP Professional Ver.2002 SP2 (Microsoft .NET Framework 2.0 Configuration)
Excel:Microsoft Office Excel 2007
言語:VB2005 SP1
参照先:Microsoft Excel 12.0 Object Library
****** プログラム ******
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlSheet1 As Microsoft.Office.Interop.Excel.Worksheet
Try
xlApp = CType(CreateObject("Excel.Application"),Microsoft.Office.Interop.Excel.Application)
xlBook = CType(xlApp.Workbooks.Open("C:\File\OutPutSheet_1System.xls"),Microsoft.Office.Interop.Excel.Workbook)
xlSheet1 = CType(xlBook.Worksheets(1),Microsoft.Office.Interop.Excel.Worksheet)
↓↓以下省略 (開放は行っています。)
お礼
確認したところ、PIAがインストールされていなかったようです。 インストールしたところ、「Microsoft.Office.Interop」がリストに出ました。 ありがとうございます。