Excel VBA質問箱 IV

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

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


5552 / 76732 ←次へ | 前へ→

【76792】Re:検索後のHTML解析
お礼  Satsuki  - 15/3/12(木) 21:13 -

引用なし
パスワード
   ▼bant さん:
ご回答ありがとうございます。

>コード変更なしで検索出来たり出来なかったりしているので、
>タイミングの問題だと思っています。
Function getMaxPage(objIE)の中で一旦止まるようにして、
objIEの中身をウォッチウィンドウで見てみました。
objIE.LocationURLはきちんとプルダウン検索後のURLになっておりましたので、
引数の渡し方は間違っていないようです。
ところが、SelectPulldownMenuの値がobjIE.LocationURLと時々違うので、

Function SelectPulldownMenu(objIE) As String
  objIE.document.forms("color")("color_id").Value = "5"
  objIE.document.forms("color")("color_id").FireEvent ("OnChange")
  Call WaitFor(3)
  SelectPulldownMenu = objIE.LocationURL
End Sub
上記のようにCall WaitFor(3)をプルダウン検索後に移動したところ、
objIE.LocationURLの値がSelectPulldownMenuに入るようになりました。
おっしゃるとおり、タイミングの問題でした。
ご教示ありがとうございました。

またわからないことがありましたら、よろしくお願いいたします。
244 hits

【76753】検索後のHTML解析 Satsuki 15/3/9(月) 18:37 質問[未読]
【76763】Re:検索後のHTML解析 bant 15/3/10(火) 11:29 発言[未読]
【76768】Re:検索後のHTML解析 Satsuki 15/3/10(火) 20:09 質問[未読]
【76773】Re:検索後のHTML解析 bant 15/3/11(水) 8:34 発言[未読]
【76786】Re:検索後のHTML解析 Satsuki 15/3/11(水) 23:03 質問[未読]
【76788】Re:検索後のHTML解析 bant 15/3/12(木) 11:08 発言[未読]
【76792】Re:検索後のHTML解析 Satsuki 15/3/12(木) 21:13 お礼[未読]

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