VBA를 사용하여 웹 사이트에서 데이터 추출

Question

웹 페이지 http://www.fdci.org/Member.aspx?mid=-1634884325&cat=1 및 이와 유사한 많은 데이터를 추출하려고합니다.

웹 페이지에서 프로필, 이름, 주소, 이메일, 전화, 팩스 등을 엑셀 시트의 다른 열로 가져와야합니다. 이것에 대한 VBA 코드를 공유 할 수 있다면 도움이 될 것입니다.

추 신 : VBA 코딩에 익숙하지 않습니다.

Answer 1

MSXML2.XMLHTTP60을 사용하여 주소 예와 같은 페이지를 가져올 수 있습니다.

' Add reference to MS XML, v6.0 and MS HTML Object Library 

Public Sub test() 

    Dim xmlObject As New MSXML2.XMLHTTP60 
    Dim htmlDocumentObject As Object 

    With xmlObject 
     Call .Open("GET", "http://www.fdci.org/Member.aspx?mid=-1634884325&cat=1", False) 
     Call .send 

     If (.Status = 200) Then 
      Set htmlDocumentObject = New HTMLDocument 
      htmlDocumentObject.Open 
      htmlDocumentObject.write .responseText 
      htmlDocumentObject.Close 

      Dim address As String 
      address = htmlDocumentObject.getElementById("ctl00_ContentPlaceHolder1_lblAdd1").innerText 

      [a1] = address 
      ' and so on ... 
     End If 
    End With 
End Sub