下記の環境、プログラムで"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)
↓↓以下省略 (開放は行っています。)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
EXCEL 2007 固有のエラーなのでしょうね。
当方、EXCEL 2007を持っていないので検証のしようが無いのですが
いろいろ調べましたら、
↓↓↓↓↓↓↓↓↓
を見つけました。
参考にしてみて下さい。
参考URL:http://www.happy2-island.com/bbs/bbs.cgi?mode=vi …
この回答への補足
参考URLを覘いてみました。
IISの意味をあまり理解してないのですが、PCは開発用に購入したネットやサーバに全くつながっていないものです。
やはりあきらめてOffice2003を手に入れるしかないんですかね…。
生産中止されてて入手できるか心配なのですが…。
No.1
- 回答日時:
たぶん、これでうまくいくと思います。
解放は全てのOBJECTに対して順次行ってください。
大変回りくどいですけど、これくらいしないとタスクマネージャーに
ゾンビか残ってしまいます。
Dim xlApp As object
dim xlBooks As object
Dim xlBook As object
dim xlSheets As object
Dim xlSheet1 As object
Try
xlApp = CreateObject("Excel.Application")
xlBooks = xlApp.workbooks
xlBook = xlbooks.Open("C:\File\OutPutSheet_1System.xls")
xlSheets = xlBook.Worksheets
xlSheet1 = xlSheets(1)
この回答への補足
回答ありがとうございます。
Objectで宣言してもやはりエラーが出ます。
順番にデバックすると、xlApp = CreateObject("Excel.Application")
でNothingとなり例外処理されているので、開放の問題ではないのかなと…。
あとExcel2003で問題なく動作するのもよく解らないところです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) office 2021へ自分用のクイックアクセスとマクロをコピーしたい 2 2023/03/11 21:15
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Excel(エクセル) Excel 2019 32ビット・バージョンを➡64ビット・バージョンに 3 2022/09/11 12:49
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Windows 10 32bit 64bitの意味 7 2023/01/16 10:22
- Excel(エクセル) Excel起動時にエラーダイアログが表示される 3 2022/07/28 19:52
- Excel(エクセル) 純正Microsoft OfficeのExcelだけ買いたいのですが、 いくらしますか? 1 2022/06/30 02:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
マクロで"#N/A"のエラー行を削...
-
お助けください!VBAのファイル...
-
String""から型'Double'への変...
-
VBでSQL文のUPDATE構文を使った...
-
インポート時のエラー「データ...
-
VBAでfunctionを利用しようとし...
-
実行時エラー'-2147467259(8000...
-
Python openpyxlを使用したセル...
-
実行時エラー 438 の解決策をお...
-
VBA データ(特定値)のある最...
-
VB.net 重複チェックがしたいです
-
文字列内で括弧を使うには
-
フランスの生年月日(jj/mm/aaaa)
-
html5 エラー
-
pythonのopenpyxlについて
-
【VBAエラー】Nextに対するFor...
-
error C2664: 'LPCTSTR' に変換...
-
日付書式のString型からData型...
-
Excel VBA 複数ブックシートご...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
【VB.NET】 パワポ操作を非表示で
-
「実行時エラー '3167' レコー...
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報