Excel VBA - 将数据从函数分离到 - >单元格

Question

I'm just learning VBA . I want to make some tool that scrap from internet to sheet.

I just read few tutorials, and got that function made in Modules:

Sub URL_Static_Query()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://randompage.com", _
        Destination:=Range("j20"))

        .BackgroundQuery = True

        .TablesOnlyFromHTML = True

        .Refresh BackgroundQuery:=False

        .SaveData = True
    End With

End Sub

Now all I want is to use extract data before it writes to cell. Any ideas?

Answer 1

Instead of extracting data from a website using a query, you can try scraping a website's HTML as follows:

Sub ImportData()
    'to refer to the running copy of Internet Explorer
    Dim IE As InternetExplorer
    'to refer to the HTML document returned
    Dim html As HTMLDocument
    'open Internet Explorer in memory, and go to website
    Set IE = New InternetExplorer
    IE.Visible = False
    IE.Navigate "https://randompage.com"
    'Wait until IE is done loading page
    Do While IE.ReadyState <> READYSTATE_COMPLETE
        Application.StatusBar = "Trying to go to StackOverflow ..."
    DoEvents
    Loop
    'show text of HTML document returned
    Set html = IE.Document
    MsgBox html.DocumentElement.innerText  '--> do your stuff here

    'close down IE and reset status bar
    Set IE = Nothing
    Application.StatusBar = ""
End Sub

To run the above code you'll have to add reference to following two object libraries:

1. Microsoft Internet Controls
2. Microsoft HTML Object Library

You can add reference in VBE. Click on Tools menu and select References . Then check both the libraries. See the image below:

Got help from here .