excel VBA填充网页搜索框,搜索并抓取数据的代码

以下是一个示例代码，可以用于在 Excel VBA 中填充网页搜索框、搜索并抓取数据：

Sub SearchAndScrape()
    Dim IE As Object
    Dim searchBox As Object
    Dim searchButton As Object
    Dim results As Object
    Dim result As Object
    Dim i As Integer
    
    ' Create a new instance of Internet Explorer
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' Navigate to the search page
    IE.Navigate "https://www.example.com/search"
    
    ' Wait for the page to load
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' Find the search box and enter the search term
    Set searchBox = IE.Document.getElementById("search-box")
    searchBox.Value = "your search term"
    
    ' Find the search button and click it
    Set searchButton = IE.Document.getElementById("search-button")
    searchButton.Click
    
    ' Wait for the search results to load
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' Find the search results and loop through them
    Set results = IE.Document.getElementsByClassName("search-result")
    For i = 0 To results.Length - 1
        Set result = results(i)
        
        ' Extract the data you want from each search result
        ' For example:
        Debug.Print result.getElementsByClassName("title")(0).innerText
        Debug.Print result.getElementsByClassName("description")(0).innerText
    Next i
    
    ' Close the Internet Explorer window
    IE.Quit
End Sub