ExcelとIE11 VBAオートメーション

Question

私はVBAで新しく、私はWeb Explorerのナビゲーションを自動化しようとしていますが、多くの難しさがあります。私は、Webページに移動してコードを検索するスクリプトを作成しました。結果は、検索された項目（「TCKNodanSorgula.aspx？tckno = 27497556158」）を含む1つの行が別のページへのリンクとして表示された表（「表」）です。そのテーブルのここでのコード：

<div class="table"> 
 

 
\t <span id="MainContent_lbl_YakinBilgi"> 
 
\t <div class="th"> 
 
\t  <div class="tdmini">&nbsp;</div> 
 
\t  <div class="td">T.C. Kimlik No</div> 
 
\t  <div class="tdmidi">B.S. No</div> 
 
\t  <div class="td">Yakınlık</div> 
 
\t  <div class="td">Adı</div> 
 
\t  <div class="td">Doğum Tarihi</div> 
 
\t  <div class="td">Durumu</div> 
 
\t  <div style="clear: both;"></div> 
 
\t </div> 
 
\t <div class="tr"> 
 
\t <div class="tdmini"> 
 
\t <a href="TCKNodanSorgula.aspx?tckno=27461667396" title="Sorgula"> 
 
\t <img alt="Sorgula" src="images/openLink.gif"> 
 
\t </a> 
 
\t </div> 
 
\t  <div class="td">27461077396</div> 
 
\t  <div class="tdmidi">34</div> 
 
\t  <div class="td">Kendisi</div> 
 
\t  <div class="td">SEVGİ</div> 
 
\t  <div class="td">25/10/1960</div> 
 
\t  <div class="td">Açık</div> 
 
\t  <div style="clear: both;"></div> 
 
      </div> 
 
     <div class="tr"> 
 
\t <div class="tdmini"> 
 
\t <a href="TCKNodanSorgula.aspx?tckno=27497556158" title="Sorgula"> 
 
\t <img alt="Sorgula" src="images/openLink.gif"> 
 
\t </a> 
 
     </div> 
 
\t  <div class="td">27497076158</div> 
 
\t  <div class="tdmidi">19</div> 
 
\t  <div class="td">Babası</div> 
 
\t  <div class="td">ŞEKİ</div> 
 
\t  <div class="td">01/12/1932</div> 
 
\t  <div class="td">Ölüm</div> 
 
\t  <div style="clear: both;"></div> 
 
\t </div> 
 
     <div class="tr"> 
 
\t <div class="tdmini"> 
 
\t <a href="TCKNodanSorgula.aspx?tckno=27470145004" title="Sorgula"> 
 
\t <img alt="Sorgula" src="images/openLink.gif"> 
 
\t </a> 
 
     </div> 
 
\t <div class="td">27470077004</div> 
 
\t <div class="tdmidi">30</div> 
 
\t <div class="td">Annesi</div> 
 
\t <div class="td">YÜKEL</div> 
 
\t <div class="td">11/09/1937</div> 
 
\t <div class="td">Açık</div> 
 
\t <div style="clear: both;"> 
 
\t </div> 
 
    </div> 
 
    </span> 
 
       
 
</div>

ここに私のコード：

For Each tık In ob.document.getElementsByTagName("a") 
    If tık.innertext = href Then 
     tık.Click 
     Exit For 
    End If 
Next tık 

私は見つけることができますが、私は第二のhrefボタンを押すために、コードを実行することはできません。私はIE 11を使用しています。

あなたのご忍耐力に感謝します。

Answer 1

ソリューション：

y = 0 
For Each ele In ob.document.getElementById("MainContent_lbl_YakinBilgi").getElementsByTagName("a") 
    y = y + 1 
    If y = 2 Then 
    Cells(i, 34).Value = ele.outerHTML 
    End If 

Next ele