如何使用VBA一次抓取多个页面/链接？

Sub 抓取页面()
    Dim 页面链接() As String
    Dim 抓取结果 As String
    Dim i As Integer
    
    ' 定义要抓取的页面链接
    页面链接 = Split("链接1,链接2,链接3", ",")
    
    ' 循环抓取每个页面
    For i = LBound(页面链接) To UBound(页面链接)
        抓取结果 = 抓取页面内容(页面链接(i))
        
        ' 将抓取结果写入Excel单元格
        Sheets("Sheet1").Range("A" & i + 1).Value = 抓取结果
    Next i
End Sub

Function 抓取页面内容(链接 As String) As String
    Dim http As New MSXML2.XMLHTTP60
    Dim html As New HTMLDocument
    
    ' 发送HTTP请求
    http.Open "GET", 链接, False
    http.send
    
    ' 解析HTML内容
    html.body.innerHTML = http.responseText
    
    ' 提取需要的内容
    ' 这里可以根据具体需求使用HTML DOM方法提取页面内容
    
    ' 返回抓取结果
    抓取页面内容 = html.body.innerHTML
End Function