使用Excel从FTP客户端上传和下载文件

我无法获得下面的代码工作（从这里的答案在VBA中使用FTP ）。 我是从WinSCP的FTP客户端，我不是100％确定如何使用代码。 当我运行macros，我得到了成功的MsgBox“发送”popup窗口，我看到一个名为FTP_BATCH_FILE_NAME的文件被创build并保存了以下信息：

"open " & FTP_ADDRESS FTP_USERID FTP_PASSWORD "mput " & sWorkingDirectory & sFileToSend quit 

发布代码的人注意到 –

“单步执行代码时，可以在即时窗口中键入以下命令，然后将结果复制/粘贴到命令窗口中：”

 ? Shell "ftp -i -w:20480 -s:" & sWorkingDirectory & FTP_BATCH_FILE_NAME 

但是，当我执行代码时，在黄色突出显示在Excel中通过此行后，我input此行，并且出现“？”，sWorkingDirectory和FTP_BATCH_FILE_NAME未被识别为内部或外部命令的错误。

我以为，在Cmd行input后，我可以将FTP_BATCH_FILE_NAME的内容放到sFileToSend中，但是没有任何东西放到sFileToSend中。

 Option Explicit Const FTP_ADDRESS = myHostAddr Const FTP_USERID = myUsername Const FTP_PASSWORD = myPassword Sub Macro1() If Not SendFtpFile_F() Then MsgBox "Could not (send/get?) ftp file" Else MsgBox "Sent" End If End Sub Function SendFtpFile_F() As Boolean Dim rc As Integer Dim iFreeFile As Integer Dim sFTPUserID As String Dim sFTPPassWord As String ' Dim sWorkingDirectory As String Dim sFileToSend As String Const FTP_BATCH_FILE_NAME = "a file in FTP I want to get.ftp" Const INCREASED_BUFFER_SIZE = 20480 SendFtpFile_F = False sWorkingDirectory = "C:\Users\...\Documents\" sFileToSend = "test.txt" 'is this the file I want to put it into? On Error GoTo FtpNECAFile_EH 'Kill FTP process file if it exists If Dir(sWorkingDirectory & FTP_BATCH_FILE_NAME) <> "" Then Kill sWorkingDirectory & FTP_BATCH_FILE_NAME End If 'Create FTP process file iFreeFile = FreeFile Open sWorkingDirectory & FTP_BATCH_FILE_NAME For Output As #iFreeFile Print #iFreeFile, "open " & FTP_ADDRESS Print #iFreeFile, FTP_USERID Print #iFreeFile, FTP_PASSWORD Print #iFreeFile, "mput " & sWorkingDirectory & sFileToSend Print #iFreeFile, "quit" Close #iFreeFile 'Shell command the FTP file to the server Shell "ftp -i -w:20480 -s:" & sWorkingDirectory & FTP_BATCH_FILE_NAME SendFtpFile_F = True GoTo FtpNECAFile_EX FtpNECAFile_EH: MsgBox "Err", Err.Name FtpNECAFile_EX: Exit Function End Function