Upload files in excel

Is it possible to upload files to a server for example X:\tempnel by clicking on a button on an excel sheet and selecting the file as you normally would? It would then display the file name in the cell next to the button "S37".

Can you use saveas?

I have code at home that might work, but I can't access it until this evening

In the SaveAs helpscreen you can select the folder in which to store a file. There you can add FTP-sites (option at the bottom of the folders' list). After having done so you can select the FTP-site as if it's a folder on your system. Then your file will be uploaded.

I think he is referring to the SaveAs Dialog when manually saving as. There are options to save to My network places & My Site.

I have code at home to FTP from VBA, I'll check them out tonight.

I've actually found some code by Leith Ross

'Written: June 11, 2008
'Author:  Leith Ross

'Open the Internet object
 Private Declare Function InternetOpen _
   Lib "wininet.dll" _
     Alias "InternetOpenA" _
       (ByVal sAgent As String, _
        ByVal lAccessType As Long, _
        ByVal sProxyName As String, _
        ByVal sProxyBypass As String, _
        ByVal lFlags As Long) As Long

'Connect to the network
 Private Declare Function InternetConnect _
   Lib "wininet.dll" _
     Alias "InternetConnectA" _
       (ByVal hInternetSession As Long, _
        ByVal sServerName As String, _
        ByVal nServerPort As Integer, _
        ByVal sUsername As String, _
        ByVal sPassword As String, _
        ByVal lService As Long, _
        ByVal lFlags As Long, _
        ByVal lContext As Long) As Long

'Get a file using FTP
 Private Declare Function FtpGetFile _
   Lib "wininet.dll" _
     Alias "FtpGetFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszRemoteFile As String, _
        ByVal lpszNewFile As String, _
        ByVal fFailIfExists As Boolean, _
        ByVal dwFlagsAndAttributes As Long, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean

'Send a file using FTP
 Private Declare Function FtpPutFile _
   Lib "wininet.dll" _
     Alias "FtpPutFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszLocalFile As String, _
        ByVal lpszRemoteFile As String, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean

'Close the Internet object
 Private Declare Function InternetCloseHandle _
   Lib "wininet.dll" _
     (ByVal hInet As Long) As Integer

Sub UploadFTP()

 'When uploading a file, make sure you have permisson to create a file on the server.
 'The size limit for a uploading a file is 4GB.
 
  Dim hostFile As String
  Dim INet As Long
  Dim INetConn As Long
  Dim hostFile As String
  Dim Password As String
  Dim RetVal As Long
  Dim ServerName As String
  Dim Success As Long
  Dim UserName As String
  
  Const ASCII_TRANSFER = 1
  Const BINARY_TRANSFER = 2

    ServerName = "myserver.some.company"
    UserName = "anonymous"
    Password = "MyEmail@somewhere.net"
    localFile = "C:\My Documents\Test.Txt"
    hostFile = "\\My Test File.txt"

      RetVal = False
      INet = InternetOpen("MyFTP Control", 1&, vbNullString, vbNullString, 0&)
        If INet > 0 Then
          INetConn = InternetConnect(INet, ServerName, 0&, UserName, Password, 1&, 0&, 0&)
            If INetConn > 0 Then
              Success = FtpPutFile(INetConn, localFile, hostFile, BINARY_TRANSFER, 0&)
              RetVal = InternetCloseHandle(INetConn)
            End If
         RetVal = InternetCloseHandle(INet)
        End If

      If Success <> 0 Then
        MsgBox ("Upload process completed")
      Else
        MsgBox "FTP File Error!"
      End If

End Sub

I always use snb's code:

Sub snb_FTP
  With New ASPFTP
    .sServerName = "ftp://www.excelforum.com"
    .sPassword = "adlibitum"
    .sUserID = "snb"
    .bConnect
    .bPutFile "E:\adressen.xls", "ftp://www.exelforum.com/httpdocs/ftptest.xls"
  End With
End Sub

NB. - activate the reference to FTP ActiveX DLL (ASPFTP.DLL)
- adapt the sting in the code tot your own situation.
- this is only 1 of more than 4 different methods tot accomplish this.

That Function is browing for folders, why would you need to find a specific file. You can't upload to a file

Something like this

Option Explicit
Dim fn

Sub GetFile()

fn = Application.GetOpenFilename 'can add parameters. See help for details.
If fn = False Then
MsgBox "Nothing Chosen"
Else
MsgBox "You chose " & fn
'Range("PDESC").Value=fn
'now that you have the name, you can open it or do something else
End If

End Sub

The parameteers would determine which type of files to show