2016-10-15 204 views
3

我试图从多个网站上取消信息。使用vba抓取网页

<div class="detailSection"> 
     <span>Officer/Director Detail</span> 
      <span><b>Name & Address</b></span> 
      <br/> 
      <br/> 
    <span>Title&nbsp;VD</span> 
    <br/> 
    <br/> 
GUNN, BETTY <span> 

<div> 
6922 SOUTH LAGOON DR<br/> 
     PANAMA CITY BEACH, FL 32408<br/> 
</div> 

我能够拉除名称为“GUNN,BETTY”以外的所有信息。

该网页是http://search.sunbiz.org/Inquiry/CorporationSearch/SearchResultDetail?inquiryType=DocumentNumber&aggregateId=domnp-763425-68d63992-2677-4bd5-9e1e-3f63ef505809&directionType=Initial&searchNameOrder=AMBASSADORBEACHOWNERSASSOCIATI%207634250&searchTerm=763425

Officer_Director_Detail2 = Doc.getElementsByClassName("detailSection")(5).getElementsByTagName("span")(2).innerText copies "Title VD". 

Officer_Director_Detail3 = Doc.getElementsByClassName("detailSection")(5).getElementsByTagName("span")(3).innerText copies "6922 SOUTH LAGOON DR PANAMA CITY BEACH, FL 32408". 

我一直在使用“BR”和“格”尝试,但也不会复制的名字。帮帮我!!!

回答

1

试试这个代码,并选择字段(TXT(I))你有兴趣“BETTY冈恩是TXT(5)

txt = Split(doc.getElementsByClassName("detailSection")(5).innerText, vbCrLf) 
For i = 0 To UBound(txt) 
MsgBox i & ":" & txt(i) 
Next i