在 VBA 中使用 FTP

我编写了 VBA 代码，该代码根据 Excel 数据（Websphere MQ Define Job）为 IBM 主机创建一个包含作业代码的 .txt 文件。

如果能够通过 FTP 自动将此文件传输到主机，那就太酷了。此时我通过以下方式手动执行此操作：

（注释：LPAR = 主机名）

ftp <LPAR>
'user'
'password'
put 'dateiname'

它工作得很好。但我不知道如何将其转移到VBA代码中。我在这里发现了类似的问题，并发布了该解决方案：

Public Sub FtpSend()

    Dim vPath As String
    Dim vFile As String
    Dim vFTPServ As String
    Dim fNum As Long

    vPath = ThisWorkbook.path
    vFile = "path"
    vFTPServ = "<LPAR>"

    'Mounting file command for ftp.exe
    fNum = FreeFile()
    Open vPath & "\FtpComm.txt" For Output As #fNum
    Print #1, "user *******" ' your login and password"
    'Print #1, "cd TargetDir" 'change to dir on server
    Print #1, "bin" ' bin or ascii file type to send
    Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to     server     file
    Print #1, "close" ' close connection
    Print #1, "quit" ' Quit ftp program Close

    Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus

    SetAttr vPath & "\FtpComm.txt", vbNormal
    Kill vPath & "\FtpComm.txt"

End Sub

我不确定我是否完全理解代码。我想我创建一个虚拟文件 FtpComm.txt，其中包含用户数据和内容，并使用该文件打开连接并发送数据。

它以某种方式起作用，直到这一点

*SetAttr vPath & "\FtpComm.txt", vbNormal*

我得到了错误

运行时错误：55 - 文件已打开。

此时已设置与 LPAR 的连接。但是“SetAttr...”有什么作用呢？这是输入完成的地方吗？我应该怎么办？

两件事情。

首先，您要在文件号下打开一个文件#fNum从...获取fNum = FreeFile()，然后假设这将返回 1，如Print #1 etc.:

Open vPath & "\FtpComm.txt" For Output As #fNum
Print #1, "user *******" ' your login and password"

改变你的一切Print #1 to Print #fNum.

其次，打开文件进行 I/O，但永远不要关闭它。因此，当然，当您尝试修改其属性或删除它时，系统会抱怨它已经打开并正在使用。解决方案是关闭文件——在完成对文件的写入/读取后，您应该立即关闭该文件。

Close #fNum ' add this line
' Can now manipulate the file without risking conflict

Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus

SetAttr vPath & "\FtpComm.txt", vbNormal
Kill vPath & "\FtpComm.txt"

至于你的代码在高层做什么：如果你输入ftp -help在命令行中，您将看到那些-n -i -g -s标志的意思。所以是的，您正在将 FTP 命令写入文件FtpComm.txt，然后将该文件提供给ftp通过-s flag.

-s:filename    Specifies a text file containing FTP commands; the
               commands will automatically run after FTP starts.