Question

我是VBA的新手，我试图自动化网络资源管理器导航，但有许多困难。我编写了一个脚本，可以导航到一个网页并搜索代码。结果是一个表（＆＃34; table＆＃34;），其中一行包含搜索到的项目（＆＃34; TCKNodanSorgula.aspx？tckno = 27497556158＆＃34;），显示为另一个页面的链接。这里是该表的代码：

＆＃13;

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

＆＃13;

这是我的代码：

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

Excel和IE11 VBA自动化

1 个答案: