Сохранение файла из пути к веб-сайту, связывающего файл, используя VBA - PullRequest
1 голос
/ 27 июня 2019

Я пытаюсь экспортировать файл Excel с веб-сайта.Указанный мной путь уже щелкает по файлу экспорта и открывает запрос, который спрашивает, что я хочу сделать с файлом.Как получить доступ к окну подсказки, чтобы открыть файл?

Я пробовал код, в котором вы открываете путь к gif 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

Это работает, если путь представляет собой сам веб-контент.Мне нужно работать с пути, который инициирует загрузку файла.Спасибо!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...