excel - vba 宏无法通过 FTP 下载文件

Question

Sub CommandButton2_Click() 
    Dim myURL As String
    myURL = "ftp://11.11.11.11/sample/myfile.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 "D:\FTPFOLDER\file.txt", 2 
        oStream.Close
        MsgBox "success"
    Else
        MsgBox "not success"
        MsgBox WinHttpReq.Status
    End If
End Sub

我尝试了上面的 VBA 宏代码，它没有从 FTP URL 下载文件。但它没有显示任何错误。我需要安装任何插件/我需要提供的任何访问权限。我是否添加/包含任何引用。任何人都有任何想法

注意：通过 Filezilla 我可以上传和下载我的文件

标签： excelms-accessvba