依抓取:company1,company2,company2資料用VBA怎麼表達?

以下是一个示例代码，展示如何使用VBA来抓取三个公司（company1、company2和company3）的数据：

Sub FetchCompanyData()
    Dim companyUrls(1 To 3) As String
    companyUrls(1) = "https://www.company1.com"
    companyUrls(2) = "https://www.company2.com"
    companyUrls(3) = "https://www.company3.com"
    
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    Dim html As Object
    Set html = CreateObject("HTMLFile")
    
    Dim companyData(1 To 3) As String
    
    Dim i As Integer
    For i = 1 To 3
        ' 发送GET请求并获取响应内容
        http.Open "GET", companyUrls(i), False
        http.send
        
        ' 将响应内容保存为HTML字符串
        html.body.innerHTML = http.responseText
        
        ' 解析HTML内容并提取数据
        ' 这里假设需要提取的数据位于公司网页的某个元素的innerText中
        Dim dataElement As Object
        Set dataElement = html.getElementById("dataElementId")
        companyData(i) = dataElement.innerText
    Next i
    
    ' 将提取到的数据输出到Immediate窗口
    For i = 1 To 3
        Debug.Print "Company " & i & " data: " & companyData(i)
    Next i
    
    ' 清理对象变量
    Set http = Nothing
    Set html = Nothing
End Sub

请注意，以上代码只是一个示例，具体的实现方式可能因公司网页的结构和要求而有所不同。在实际应用中，你需要根据公司网页的具体情况，调整代码以正确解析和提取数据。