Загрузите файл из SFTP с помощью VBA и URLDownloadToFile

Наш FTP-сервер просто перенесен на сервер sftp. Книга, которую некоторые из нас используют, использует vba для загрузки файлов. Я изменил URL-адрес на новый sftp-url, и теперь он не будет загружен. Совместим ли URLDownloadToFile с SFTP?

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) sub ftp() URLDownloadToFile 0, _ "sftp://username:P)O([email protected]/internet/in/201711_80.1035", _ ThisWorkbook.Path & "\FTP\File1.txt", 0, 0 end sub 

    Давайте будем гением компьютера.