Excel和IE11 VBA自動化

Question

我是VBA新手，我試圖自動化一個Web Explorer導航，但有許多難點。我編寫了一個導航到網頁並搜索代碼的腳本。結果是一個表格（「表格」），其中一行包含顯示爲另一頁面鏈接的搜索項目（「TCKNodanSorgula.aspx？tckno = 27497556158」）。該表的下面的代碼：

<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