使用VBA从链接该文件的网站路径中保存文件

时间:2019-06-27 02:39:04

标签: excel vba

我正在尝试从网站导出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内容本身,则此方法有效。我需要从启动文件下载的路径进行工作。谢谢!

0 个答案:

没有答案