Primeiro, você tem que baixar os dados do FTP e depois processá-los.
Para baixar um arquivo, adapte o código abaixo:
#If VBA7 Then
Public Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr _
, ByVal szURL As String _
, ByVal szFileName As String _
, ByVal dwReserved As LongPtr _
, ByVal lpfnCB As LongPtr) As Long
#Else
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long _
, ByVal szURL As String _
, ByVal szFileName As String _
, ByVal dwReserved As Long _
, ByVal lpfnCB As Long) As Long
#End If
Private Sub Baixar()
'Declaração de variáveis
Dim sURL As String
Dim sDestino As String
Dim blSucesso As Boolean
'Altere as informações abaixo de acordo com sua necessidade
sURL = "http://www.ambienteoffice.com.br/topo.jpg"
sDestino = ThisWorkbook.Path & "\" & "topo.jpg"
'Baixa o arquivo da internet
blSucesso = DownloadArquivo(sURL, sDestino)
If blSucesso Then
MsgBox "Arquivo baixado com sucesso!" _
, vbInformation _
, "Informação"
Else
MsgBox "Erro ao tentar baixar o arquivo!" _
, vbCritical _
, "Erro!"
End If
End Sub
Private Function DownloadArquivo(sURL As String, sDestino As String) As Boolean
Dim l As Long
l = URLDownloadToFile(0, sURL, sDestino, 0, 0)
If l = 0 Then DownloadArquivo = True
End Function
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
