サイト内検索の結果のリンク先を開けてデータ取得したい

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

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
>
> というコードを書くと、画像にもマキタが含まれているため、二度同じことをします。
> また、クリックをして、取得して、閉じて、また次の結果をクリックというのがうまく行きません。
> ご教授いただけないでしょうか。よろしくおねがいします

Message#1 2018年5月21日(月)19時16分
From: Kavu3054

返事削除変更

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

というコードを書くと、画像にもマキタが含まれているため、二度同じことをします。
また、クリックをして、取得して、閉じて、また次の結果をクリックというのがうまく行きません。
ご教授いただけないでしょうか。よろしくおねがいします