在 Excel 中使用 VBA 将文本文件 FTP 到服务器 [英] FTP a text file to a server using VBA in Excel

问题描述

我有一个 Excel 工作表，用户在其中输入某些数据，我想将其存储在文本文件中并使用 FTP 上传到服务器.一个站点建议添加对Microsoft Internet 传输控制"的引用，然后定义一个Inet"对象来执行 FTP.但是，我无法在 VB 编辑器的工具 -> 参考"中找到具有此名称的参考.有谁知道这个问题的解决方案?提前致谢.

I have an Excel worksheet where the user enters certain data, which I want to store in a text file and upload to a server using FTP. One site suggested adding a reference to "Microsoft Internet Transfer Control" and then define an "Inet" object to do the FTP. However, I am unable to find a reference with this name in "Tools -> References" in the VB Editor. Does anyone know of a solution for this problem? Thanks in advance.

推荐答案

这是我通过谷歌搜索找到的解决方案 -

Here is a solution I found by doing some Google search -

Public Sub FtpSend()

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

vPath = ThisWorkbook.Path
vFile = "YourFile.csv"
vFTPServ = "********"

'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

原始来源:http://www.access-programmers.co.uk/forums/showthread.php?t=184692

这篇关于在 Excel 中使用 VBA 将文本文件 FTP 到服务器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！