サイト内検索の結果のリンク先を開けてデータ取得したい 削除
| 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 > > というコードを書くと、画像にもマキタが含まれているため、二度同じことをします。 > また、クリックをして、取得して、閉じて、また次の結果をクリックというのがうまく行きません。 > ご教授いただけないでしょうか。よろしくおねがいします |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
