| 投稿日 | ： 2003/07/11(Fri) 10:45 |
| 投稿者 | ： tak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: GetObjectで実行時エラー429が出ます・・。 |
>花ちゃんさん
即レスありがとうございます。
逆にぼくのレスが大変遅れて申し訳ありません・・ｍ(_ _)ｍ
一応、下記のコードで実行してみました。（御サイトのコードをそのままです。参照設定もしています。）
'EXCELアプリケーションをセット
'参照設定をしておいて下さい。
' エラーのトラップを留保します。
On Error Resume Next
'Microsoft Excel への参照を格納する変数を宣言します。
Dim xlApp As Excel.Application
'Microsoft Excel が既に起動されているかどうかを調べます。
'第 1 引数を指定せずに GetObject 関数を呼び出すと、
'アプリケーションのインスタンスへの参照が返されます。
'Microsoft Excel が起動されていないと、エラーが発生します。
★ Set xlApp = GetObject(, "Excel.Application")
If Err.Number Then
MsgBox "Excel が起動されていません。"
' エラーが発生した場合は Err オブジェクトをクリアします。
Err.Clear
Else
MsgBox "Excel はすでに起動中です。"
End If
>１．どのような時にエラーがでるのですか？
Excelが起動されている場合にはちゃんと"Excel はすでに起動中です。"とメッセージボックスが出ました。どうもエラーになるのはExcelが起動されていない場合限定のようです。
>２．どこででるのですか？
上記コードで★印をつけた1行です。
>３．私の元々のコードでもでるのですか？
う〜ん・・。出るようです・・。
度々で申し訳ありませんが、よろしくお願いいたします。