使用VBA和URLDownloadToFile从SFTP下载文件

我们的ftp服务器刚刚迁移到一个sftp服务器。 我们几个人共享的工作手册使用vba下载文件。 我改变了url到新的SFTPurl,现在它不会下载。 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(i4b6@sftp.st.gov/internet/in/201711_80.1035", _ ThisWorkbook.Path & "\FTP\File1.txt", 0, 0 end sub