通过FTP从Excel VBA上传文件

Option Explicit

Sub UploadFileToFTP()
    Dim ftpURL As String
    Dim fileName As String
    Dim fileContent As String
    Dim xmlhttp As Object
    
    ' Set up FTP URL and file name
    ftpURL = "ftp://example.com/remote/path/file.txt"
    fileName = "C:\path\to\local\file.txt"
    
    ' Send FTP request and get response
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    xmlhttp.Open "PUT", ftpURL, False
    xmlhttp.Send
    
    ' Read FTP response as binary data
    fileContent = xmlhttp.ResponseText
    
    ' Close XMLHTTP object
    xmlhttp.Close
    
    ' Save binary data to file on local machine
    Open fileName For Binary Access Write As #1
    Put #1, , fileContent
    Close #1
    
    ' Inform user that file was uploaded successfully
    MsgBox "File uploaded to FTP server successfully."
End Sub