Upload a file to an ftp server using VBA in Excel

1) open the url the secure ftp site using IE (would also be useful to get the code for other browsers such as Chrome, Firefox, Safari)

Private Sub CommandButton2_Click()
    On Error GoTo cancel_error
    Dim strPath As String
    With CommonDialog1
        '~~> Set the Title of the Dialog Box
        .DialogTitle = "Select Files for Upload"
        '~~> Set the Initial directory
        .InitDir = "C:\"
        '~~> Set the Filter for the files that you want to open
        .Filter = "Text Files (*.csv)|*.csv"
        '~~> Displays the Open Dialog Box
        .ShowOpen
    End With
    strPath = CommonDialog1.fileName
    ListBox1.AddItem strPath
    Exit Sub

cancel_error:
     If Err.Number <> vbCancel Then
          MsgBox Err.Description
     End If
End Sub

Select allOpen in new window

Private Sub CommandButton1_Click()
    On Error GoTo FTPError
    
    Inet1.URL = Trim(Text1.Text)
    Inet1.UserName = Trim(Text2.Text)
    Inet1.Password = Trim(Text3.Text)
    Inet1.Execute , "", "POST", ""
    
FTPError:
    Select Case Err.Number
    Case 35754
        MsgBox Err.Description
    Case Default
        MsgBox "Connected Successfully."
    End Select
End Sub

Select allOpen in new window

Private Sub CommandButton3_Click()
    Dim localfile As String, remoteFile As String, fileName As String
    Dim FilePath, fileid As String, seperatorPos, s1 As Integer
    Dim str As String
    
    For k = 0 To ListBox1.ListCount - 1
        localfile = ListBox1.List(k)
        remoteFile = GetFileName(localfile)
        Inet1.Execute , "PUT """ & localfile & """ """ & remoteFile & """"
        While Inet1.StillExecuting
            DoEvents
        Wend
    Next k
End Sub

Select allOpen in new window