Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5638 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   >ページが存在しないときに、

指定のＵＲＬが存在しない場合、
と考えてよろしいですか？
【49829】Re:オブジェクト、プロパティの有無の確認
回答  higa  - 07/6/24(日) 0:37 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
>>ページが存在しないときに、
>
>指定のＵＲＬが存在しない場合、
>と考えてよろしいですか？

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

>指定のＵＲＬが存在しない場合、
>と考えてよろしいですか？

そうですね。

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 "ｈｔｔｐ://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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5638 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free