サイト内検索の結果のリンク先を開けてデータ取得したい
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#2 2018年5月23日(水)11時12分 From: ジャッカル | 返事 削除 変更 |
| 情報取得が完了したのなら exit for とか使って処理をとめたらどう？ > https://www.bildy.jp > というサイトで例えば「マキタ」と検索をかけて、その結果のリンク先を一つずつ開けて、品番と商品名を取得するのを作りたく、紹介されている本を購入し勉強してみました。 > サイトを開けて、検索をかけ、表示させることは出来るのですが、その後の検索結果のタグ、id、name。どれを指定して、クリックをしていけば良いのか、わかりません。 > Sub title(ByRef objIE As Object, ByRef ws As Worksheet) > Dim i, n1, n2 As Long > Dim kenmei, url As String > Dim objtag As Object > Dim objtag2 As Object > > i = Range("A65536").End(xlUp).Row + 1 > For Each objtag In objIE.document.getElementsByTagName("a") > If InStr(objtag.outerHTML, "マキタ") > 0 Then > objtag.Click > i = Range("A65536").End(xlUp).Row + 1 > > というコードを書くと、画像にもマキタが含まれているため、二度同じことをします。 > また、クリックをして、取得して、閉じて、また次の結果をクリックというのがうまく行きません。 > ご教授いただけないでしょうか。よろしくおねがいします |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
