如何用VBA抓取网页数据并保存到表格

在VBA中，您可以使用`XMLHttpRequest`对象发送HTTP请求获取网页数据，并使用`HTMLDocument`对象解析HTML页面。

以下是一个基本的VBA代码示例，演示如何获取网页数据并将其保存到Excel工作表：

Sub GetWebData()
    Dim request As Object
    Dim htmlDoc As Object
    Dim i As Integer
    
    Set request = CreateObject("MSXML2.XMLHTTP")
    request.Open "GET", "https://www.example.com", False
    request.send
    
    Set htmlDoc = CreateObject("HTMLDocument")
    htmlDoc.body.innerHTML = request.responseText
    
    For i = 0 To htmlDoc.getElementsByTagName("tr").Length - 1
        '在这里你可以根据你要抓取的数据的HTML元素来获取数据
        '例如: 可以通过 htmlDoc.getElementsByTagName("tr").Item(i).getElementsByTagName("td").Item(0).innerText
        '获取表格中第i行第1列的文本内容
        
        '在这里将数据写入到Excel表格中，以下是一个示例
        Worksheets("Sheet1").Cells(i + 1, 1) = htmlDoc.getElementsByTagName("tr").Item(i).getElementsByTagName("td").Item(0).innerText
    Next i
    
End Sub

在这个示例中，我们首先创建了一个XMLHttpRequest对象并使用`Open`和`send`方法发送HTTP GET请求。然后，我们创建了一个HTMLDocument对象并将响应文本传递给其`body.innerHTML`属性。

接下来，我们使用`getElementsByTagName`方法获取表格中的所有行，循环遍历每一行并从HTML元素中提取数据，最后将数据写入Excel表格。

请注意，这只是一个基本示例，实际情况下，您可能需要使用其他技术来处理复杂的HTML结构或动态加载的内容。