使用 VBA 自动上传 FTP

Question

我正在尝试自动化以下过程：

1. 将数据从数据库导入 Microsoft Excel (myfile.xls) 并进行格式化。
2. 文件另存为myfile.txt。
3. 通过FTP 上传到服务器。

我已经上传了FTP，但我遇到了在VBA 脚本中创建的批处理文件的问题。

我目前的脚本如下：

Dim MY_FILENAME As String
MY_FILENAME = "C:\user\sam\test" & "filename" & Format(CStr(Now), "yyyy_mm_dd_hh_mm") & ".BAT"


Dim FileNumber As Integer
Dim retVal As Variant

FileNumber = FreeFile

'create batch file
Open MY_FILENAME For Output As #FileNumber
Print #FileNumber, "FTP 00.0.000.000"
Print #FileNumber, "username"
Print #FileNumber, "password"
Print #FileNumber, "ascii crlf"
Print #FileNumber, "put  " myfile.txt; "  'location'"
Print #FileNumber, "exit"
Close #FileNumber

'run batch file
retVal = Shell(MY_FILENAME, vbNormalFocus)

当我运行此脚本时，它会打开与服务器关联的 IP，但无法输入登录凭据。谁能告诉我哪里出错了？

Answer 1

问题是批处理文件首先以交互模式打开ftp 并且没有收到任何输入。如果ftp 会自行终止，您会注意到您的批处理文件然后继续执行指令username、password 等。这些不是对批处理的指令而是对ftp 的指令，但是这不是 Batch 的看法。

要解决这个问题，请将所有 ftp 指令保存到第二个文件中，然后以第二个文件作为输入参数批量调用 ftp：

Dim FileNumber As Integer
Dim retVal As Variant
FileNumber = FreeFile

'create batch file
Open MY_FILENAME For Output As #FileNumber
Print #FileNumber, "FTP -s<your-filename-here> 00.0.000.000"
Close #FileNumber

Open FTP_INSTRUCTIONS For Output As #FileNumber
Print #FileNumber, "username"
Print #FileNumber, "password"
Print #FileNumber, "ascii crlf"
Print #FileNumber, "put  " myfile.txt; "  'location'"
Print #FileNumber, "exit"
Close #FileNumber

'run batch file
retVal = Shell(MY_FILENAME, vbNormalFocus)