VBA Code to FTP files

[oakleyfoy]

I have an excel spreadsheet that is currently running VBA and creating .pdf's from different spreadsheets. I would like for those .pdf's to then be FTP up to my webserver in the same VBA. Is that possible? Thanks in advance for any help!

 

[rpaulson]

i use this:

'''Upload_Web_page

myPath = "c:\results\upcode" 'path where batch file is saved
WebFileName = "myfile"

''''''''write script.dat and upload.dat file
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set A = fs.CreateTextFile(myPath & "\script.dat", True)
    A.writeline "username" 'username
    A.writeline "password" 'username
    A.writeline "lcd " & myPath 'file location
    A.writeline "cd www"
    A.writeline "put " & WebFileName & ".pdf" 'file name
    A.writeline "quit"
    A.Close
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set A = fs.CreateTextFile(myPath & "\upload.bat", True)
    
    A.writeline "ftp -i -s:" & myPath & "\script.dat ftp.mysite.com"
    A.Close
    dRetVal = Shell(myPath & "\upload.bat", 0)
    ''''''''''end upload.bat file

hth,
Ross

 

[Fluff]

Crossposted https://www.excelforum.com/excel-programming-vba-macros/1236614-vba-code-to-ftp-files.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.