| 投稿日 | ： 2003/07/10(Thu) 11:27 |
| 投稿者 | ： tak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： GetObjectで実行時エラー429が出ます・・。 |
こんにちは！
こちらでも特集を組んで力を入れているVBからEXCELの操作について一つ分からない事があります。
下記のコードで「GetObject」実行時にエラーとなってしまいます・・。でも「CreateObject」なら正常にいけるんです。
環境はWIN2000＋VB6.0SP5＋EXCEL2000です。
Dim oExcelApplication As Object 'EXCELアプリケーション
'EXCELアプリケーションをセット
On Error Resume Next
Set oExcelApplication = GetObject(, "Excel.application")
If Err.Number <> 0 Then
Set oExcelApplication = CreateObject("Excel.application")
End If
On Error GoTo 0
ちなみに上記コードをWIN95＋（VBなし）＋EXCEL97環境で行うとうまくいくんです・・。
「WindowsScript.DLL」のバージョン6.5をインストールしてレジストリの再登録を行ってもダメです・・。一体何故なのでしょうか？？
もし、ご存知の方いらしたら是非、ご教授のほどよろしくお願いしますｍ(_ _)ｍ