VBA скачать файл с FTP URL
Я пытаюсь создать код VBA для загрузки файла по определенному пути с прямой ссылки FTP (асинхронно предпочтительнее). Я только нашел код для того, чтобы заставить его работать с URL-адресами http, но для FTP я получаю эту ошибку:
«Ошибка времени выполнения -2146697210 (800c0006)»: система не может найти указанный объект »
Для этих первых испытаний не нужно указывать имя пользователя или пароль для ftp-сервера.
Мой код, который работает только для http ниже:
Sub DownloadFile()
Dim myURL As String
myURL = "ftp://xxx.xxx.xxx.xxx/test.txt"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send
myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile "C:\FTP\file.txt", 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
End Sub