Mais
×

Como usar o FTP através do VBA

Atualizado em 20 julho, 2017

O File Transfer Protocol é uma tecnologia usada para transferir arquivos entre computadores pela Internet. O VBA é uma linguagem de programação desenvolvida pela Microsoft. Ela é baseada no Microsoft’s Component Object Model, o que lhe permite fazer referência a objetos e fazer uso de suas propriedades e métodos para criar programas. Um objeto que você pode fazer referência no VBA é o Microsoft Internet Transfer Control. Este objeto controla transferências de arquivos em plataformas Windows. Programadores podem criar e usar o FTP dentro de seus programas usando o objeto Microsoft Internet Transfer Control. Ter o objeto Microsoft Internet Transfer Control para usar os serviços de FTP é simples para um programador VBA iniciante e leva apenas alguns passos.

Instruções

Use o FTP através do VBA (typing on a computer keyboard image by TEMISTOCLE LUCARELLI from Fotolia.com)
  1. Abra o Microsoft Excel.

  2. Clique em "Ferramentas", "Macro" e depois em "Visual Basic". Isto irá abrir o ambiente de programação VBA.

  3. Clique em "Ferramentas" e "Referência". Role para baixo, selecione "Microsoft Internet Transfer Control" e clique em "OK".

  4. Clique em "Inserir" e "Módulo". Você está agora em um módulo de código de programação.

    Digite ou copie e cole o seguinte no módulo de código:

    Function UploadFile(ByVal HostName As String, _ ByVal UserName As String, _ ByVal Password As String, _ ByVal LocalFileName As String, _ ByVal RemoteFileName As String) As Boolean

    Dim FTP As Inet

    Set FTP = New Inet With FTP .Protocol = icFTP .RemoteHost = HostName .UserName = UserName .Password = Password .Execute .URL, "Put " + LocalFileName + " " + RemoteFileName Do While .StillExecuting DoEvents Loop UploadFile = (.ResponseCode = 0) End With Set FTP = Nothing End Function

bibliography-icon icon for annotation tool Cite this Article