File Transfer Protocol é uma tecnologia usada para transferir arquivos entre computadores pela Internet. VBA é uma linguagem de programação desenvolvida pela Microsoft. VBA é baseado no modelo de objeto de componente da Microsoft , que permite fazer referência a objetos e fazer uso de suas propriedades e métodos para criar programas. Um tal objeto que você pode referenciar no VBA é o objeto de transferência de controle do Microsoft Internet. Esse objeto controla transferências de arquivos em plataformas Windows. Usando o objeto de transferência de controle do Microsoft Internet , os programadores podem criar e usar o FTP dentro de seus programas. Adquirir o objeto Transfer Control Microsoft Internet para usar os serviços de FTP é simples para um programador VBA novatos e leva apenas alguns passos. Instruções
1

Abra o Microsoft Excel.
2

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

Clique em "Ferramentas " e " Referência ". Role para baixo e selecione a opção " Internet Transfer Control Microsoft " e clique em "OK".
4

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

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

Função UploadFile (ByVal HostName As String , _ ByVal

UserName As String , _

ByVal senha As String , _ ByVal

LocalFileName As String , _ ByVal

RemoteFileName As String) As Boolean Dim

FTP como inet

Set FTP = Novo inet

Com
FTP

. Protocolo = icFTP

. RemoteHost = HostName

. username = username

. Password = Senha

. Executar. URL : "Coloque " + LocalFileName + "" + RemoteFileName

Do While . StillExecuting

DoEvents < br >

loop

UploadFile = ( . ResponseCode = 0)

End With

Set FTP = Nothing End Function

< br >