excel - 从使用 VBA 链接文件的网站路径保存文件

Question

我正在尝试从网站导出 excel 文件。我提供的路径已经单击导出文件并打开一个提示，询问我想对文件做什么。如何访问提示框以打开文件？

我已经尝试了打开 google gif 路径的代码，但它不适用于此，因为路径并没有真正导致我的内容。我的目标是打开 excel 文件并将内容导出到我的主 excel 文件（包含宏的文件）。

我试过这个，但这仅适用于直接链接到内容而不是保存提示。

Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
    Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte

     'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
    oXMLHTTP.send 'send request

     'Wait for request to finish
    Do While oXMLHTTP.readyState <> 4
        DoEvents
    Loop

    oResp = oXMLHTTP.responseBody 'Returns the results as a byte array

     'Create local file and save results to it
    vFF = FreeFile
    If Dir(vLocalFile) <> "" Then Kill vLocalFile
    Open vLocalFile For Binary As #vFF
    Put #vFF, , oResp
    Close #vFF

     'Clear memory
    Set oXMLHTTP = Nothing
End Function

如果路径是 Web 内容本身，则此方法有效。我需要从启动文件下载的路径开始工作。谢谢！

标签： excelvba