Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5618 / 13645 ツリー ←次へ | 前へ→

【49822】オブジェクト、プロパティの有無の確認 higa 07/6/23(土) 19:56 質問[未読]
【49823】Re:オブジェクト、プロパティの有無の確認 ぱっせんじゃー 07/6/23(土) 20:15 発言[未読]
【49829】Re:オブジェクト、プロパティの有無の確認 higa 07/6/24(日) 0:37 回答[未読]
【49830】Re:オブジェクト、プロパティの有無の確認 Kein 07/6/24(日) 1:56 発言[未読]

【49822】オブジェクト、プロパティの有無の確認
質問  higa  - 07/6/23(土) 19:56 -

引用なし
パスワード
   ExcelVBAで、IEオブジェクトを使い、複数のURLのフォームに
データを送信しているのですが、ページが存在しないときに、

”オブジェクトはこのプロパティまたはメソッドをサポートしていません。”

と、フォームのオブジェクト自体が無いために、処理がとまってしまいます。

オブジェクト自体の有無や、プロパティの有無の確認ができれば
回避できるのですが、なにかよい方法はあるのでしょうか。

【49823】Re:オブジェクト、プロパティの有無の確認
発言  ぱっせんじゃー  - 07/6/23(土) 20:15 -

引用なし
パスワード
   >ページが存在しないときに、

指定のURLが存在しない場合、
と考えてよろしいですか?

【49829】Re:オブジェクト、プロパティの有無の確認
回答  higa  - 07/6/24(日) 0:37 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>>ページが存在しないときに、
>
>指定のURLが存在しない場合、
>と考えてよろしいですか?

返信ありがとうございます。

>指定のURLが存在しない場合、
>と考えてよろしいですか?

そうですね。

objIE.Navigate (URL)

で、指定のURLを開いた後に、

objIE.Document.all.Id.Value="id番号"

でidを入力しているのですが、

Navigateでページを開いたときに、タイムアウト、もしくは404エラーが
でたとき、

objIE.Document.all.Id.Value="id番号"

でストップしてしまいます。

【49830】Re:オブジェクト、プロパティの有無の確認
発言  Kein  - 07/6/24(日) 1:56 -

引用なし
パスワード
   タイトルで判断すれば良いのなら・・

  With objIE
   .Navigate "http://www.???.co.jp"
   Do While .Busy: DoEvents: Loop
   Do Until .ReadyState = 4: DoEvents: Loop
   If .Document.Title = "サーバーが見つかりません" Then
     .Quit: Set objIE = Nothing
     MsgBox "Not Found !"
   Else
     .Visible = True
     .Document.All.Id.Value = "id番号"
   End If
  End With
  Set objIE = Nothing

5618 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free