Excel VBA для загрузки CSV-файла с URL-адреса не работает на другом компьютере - PullRequest
Новая
       15

Excel VBA для загрузки CSV-файла с URL-адреса не работает на другом компьютере

1 голос
/ 28 мая 2019

У меня есть код Excel VBA, который загружает и сохраняет CSV-файл, используя URL-адрес, такой как https://web123.com/io/abc/456/export. Извините, я не могу опубликовать фактический URL-адрес.Несколько подробностей: в качестве предварительного условия мне нужно войти на веб-страницу, к которой принадлежит URL.Загруженный CSV-файл в идеале должен содержать правильную таблицу со столбцами и строками данных.Это работает безупречно на моем компьютере.Но при использовании другого компьютера выходной CSV-файл содержит HTML-контент.Пожалуйста, помогите, как решить эту проблему.Веб-сайт, откуда я получил код VBA: http://www.excelvbasolutions.com/2014/09/download-file-from-url-using-vba.html

Я попытался добавить ссылку на Microsoft Internet Controls, как рекомендовано в некоторых решениях в stackoverflow.Но это все равно не работает.Пожалуйста, помогите. 

Dim myURL As String
myURL = "Put your download link here"

Dim HttpReq As Object
Set HttpReq = CreateObject("Microsoft.XMLHTTP")
HttpReq.Open "GET", myURL, False, "username", "password"
HttpReq.send

myURL = HttpReq.responseBody
If HttpReq.Status = 200 Then
    Set oStrm = CreateObject("ADODB.Stream")
    oStrm.Open
    oStrm.Type = 1
    oStrm.Write HttpReq.responseBody
    oStrm.SaveToFile ThisWorkbook.Path & "\" & "file.csv", 2 ' 1 = no overwrite, 2 = overwrite
    oStrm.Close
End If
...