使用VBA请求FTP文件时出现问题

Question

我正在尝试在我的例程中创建一个从FTP位置检索.xls文档的部分。

我现在谷歌搜索了几个小时，我开始对这段代码感到非常沮丧。

运行代码时，我得到运行时错误'3001'，说我的参数是错误的类型，超出了可接受的范围，或者彼此冲突。

Sub GetFTPFile()
    Dim objXML
    Dim strFTPResponse
    Dim varUser, varPassword As Variant
    Dim LocalDir As String

    Set objXML = CreateObject("MSXML2.XMLHTTP")

    strURL = "ftp://xyz_hourly.xls"
    LocalDir = "c//"
    varUser = "xxx"
    varPassword = "yyy"

    Call objXML.Open("GET", strURL, varUser, varPassword, False)
    Call objXML.send

    Do While objXML.readystate <> 4
        DoEvents
    Loop

    Set File = CreateObject("ADODB.Stream")
    File.Type = 1
    File.Open
    File.Write objXML.ResponseBody
    File.SaveToFile "c//yyy.xlsx", 2
End Sub