cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Using Excel VBA to upload a file

Hi,

I have an excel VBA project and i wish to have the vba code upload a file to my godaddy website.

 

I believe I have the correct code but may not have the settings correct to upload file...

 

I have attached the vba code with my login and password removed with XXXXX

 

Any help is much appreciated!!

***VBA CODE BELOW****

 

Private Const FTP_TRANSFER_TYPE_UNKNOWN As Long = 0
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Private Declare Function InternetOpenA Lib "wininet.dll" ( _
ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long

Private Declare Function InternetConnectA Lib "wininet.dll" ( _
ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Long, _
ByVal sUsername As String, _
ByVal sPassword As String, _
ByVal lService As Long, _
ByVal lFlags As Long, _
ByVal lcontext As Long) As Long

Private Declare Function FtpPutFileA _
Lib "wininet.dll" _
_
(ByVal hFtpSession As Long, _
ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Private Declare Function InternetCloseHandle Lib "wininet" ( _
ByVal hInet As Long) As Long


Sub FtpUpload(ByVal strLocalFile As String, ByVal strRemoteFile As String, ByVal strHost As String, ByVal lngPort As Long, ByVal strUser As String, ByVal strPass As String)
Dim hOpen As Long
Dim hConn As Long

hOpen = InternetOpenA("FTPGET", 1, vbNullString, vbNullString, 1)
hConn = InternetConnectA(hOpen, strHost, lngPort, strUser, strPass, 1, 0, 2)

If FtpPutFileA(hConn, strLocalFile, strRemoteFile, FTP_TRANSFER_TYPE_UNKNOWN Or INTERNET_FLAG_RELOAD, 0) Then
Debug.Print "Success"
Else
Debug.Print "Fail"
End If

'Close connections
InternetCloseHandle hConn
InternetCloseHandle hOpen

End Sub


Sub TestUpload()
FtpUpload "C:\Users\user\Documents\Website\ajaysfencing\time_sheets\dailyhours1.htm", "/home/content/57/9809057/html/webroot/dailyhours1.htm", _
"118.139.170.1", 21, "XXXXXXX", "XXXXXXX"
End Sub

1 REPLY 1
Community Manager
Community Manager

Re: Using Excel VBA to upload a file

Hi @andywelch. Thanks for being part of GoDaddy Community! 

 

Good question. Unfortunately, I'm not a VBA developer, so I have no clue how you would do this. I've moved your post to the Managing Webhosting board to hopefully get your question in front of some people that can help. Good luck!

 

JesseW - GoDaddy | Community Manager | 24/7 support available at x.co/247support | Remember to choose a solution and give kudos.