Question

我正在尝试从网页http://www.fdci.org/Member.aspx?mid=-1634884325&cat=1和其他许多类似的网页中提取数据。

我需要将网页上的个人资料，姓名，地址，电子邮件，电话，传真等转到Excel工作表的不同栏目。如果您可以为此分享VBA代码或欢迎任何帮助，那将是很棒的。

PS：我是VBA Coding的新手。

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

使用VBA从网站提取数据

1 个答案: