Я пытаюсь экспортировать файл 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
Это работает, если путь представляет собой сам веб-контент.Мне нужно работать с пути, который инициирует загрузку файла.Спасибо!