Como usar o FTP através do VBA

Escrito por bobson st. pierre | Traduzido por milene hermenegildo
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como usar o FTP através do VBA
Use o FTP através do VBA (typing on a computer keyboard image by TEMISTOCLE LUCARELLI from Fotolia.com)

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.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Abra o Microsoft Excel.

  2. 2

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

  3. 3

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

  4. 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

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível