Excel VBA upload via SFTP

Dear members,

In the past I used this code below to automatically upload files to my FTP. Now I moved to SFTP and it doesnt work anymore.

Does someone know how to upload to #SFTP via VBA?

Thanks and have a nice day,

Ronald

Dim TempChart As Variant
Dim ImageName1 As String
Dim ImageName As String
Dim FinalImagePath As String
Dim InRange As Range
Dim DiscName As String
Dim ftpLogin As String
Dim ftpPassword As String
Dim ftpPath As String
Dim a As Object
Dim fs As Object
Dim ftpSite As String
Dim TempFolderName As String


'---------------------------------------------------------------------------------
'set variable parameters
TempFolderName = "zqqftptemp"
DiscName = "C" 'put the name of disc for temporary files, for example "D".
ftpSite = "xxxxxxx 'put the website name, for example "mywebsite.com"
ftpPath = "/articles" 'put the path to ftp folder, for example "/public_html/uploaded_files/"
ftpLogin = "xxxxx" 'put your ftp login, for example "john123"
ftpPassword = "xxxxxxx" 'put your ftp password, for example "pass123"
'---------------------------------------------------------------------------------

Application.ScreenUpdating = False

'copy the appropriate range
Workbooks("Outlook lists.xlsm").Activate
Worksheets("csv").Range("A1:P11").Copy


'export as an image
MkDir DiscName & ":\" & TempFolderName & "\"
FinalImagePath = DiscName & ":\" & TempFolderName & "\" & "outlooks.csv"

'add new workbook and paste copied range
Workbooks.Add
ActiveSheet.Paste

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new, I have done it for you this time.)

To upload file to sftp you'd want 3rd party library, such as WinScp.

Have a read of link below.
https://winscp.net/eng/docs/library_vb

Edit: Alternately you can use WinScp's command line tool via shell, similar to post#7 of the link below.
https://www.access-programmers.co.uk...ss-vba.280970/