FTP текстовый файл на сервер с помощью VBA в Excel

Question

У меня есть лист Excel, где пользователь вводит определенные данные, которые я хочу сохранить в текстовом файле и загрузить на сервер по FTP. Один сайт предложил добавить ссылку на «Microsoft Internet Transfer Control», а затем определить объект «Inet» для выполнения FTP. Однако я не могу найти ссылку с этим именем в «Инструменты -> Ссылки» в редакторе VB. Кто-нибудь знает решение этой проблемы? Заранее спасибо.

Answer 1

Вот решение, которое я нашел, выполнив поиск в Google -

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