por favor, solicito auxilio de vocês para realizar o download de um arquivo link web.
Tentei adaptar o código apresentado pelo Tomas: http://www.tomasvasquez.com.br/blog/mic ... um-arquivo, porém não obtive sucesso.
O código não apresenta nenhuma mensagem de erro, porém ao executá-lo, não localizo o arquivo na pasta destino.
Segue a parte do código:
Código: Selecionar todos
Dim URL As String
Dim HTMLdoc As HTMLDocument
Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary")
Dim tRowID As String
Dim CaminhoLocal As String
Dim Auxiliar As Long
With IE
.Navigate URL
.Visible = True
Do Until .ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set HTMLdoc = .Document
End With
With HTMLdoc
'encontra o inicio da tabela
Set tblSet = .getElementById("listagem")
'encontra a id mais recente
Set mTbl = tblSet.getElementsByTagName("a")(4)
'filtra o código id para formar o link
tTbl = VBA.Right(mTbl, 9)
End With
'cria o link
URL = "http://urapms.brasiltelecom.com.br/pms/RelatorioDisponivelViewServlet?" & tTbl
'gravando o arquivo - erro, aparece "concluido com sucesso, mas arquivo não consta na pasta
CaminhoLocal = "\\km3rede\aplcopel\Relacionamento_Clientes\ISOAcesso\Relatórios\Acompanhamento Diário\Diario\TESTE_WAGNER\ocupadas.xls"
Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
MsgBox "Download efetuado com sucesso!"
Exit Sub
Err:
MsgBox "Erro no download do arquivo"
end sub
Código: Selecionar todos
URL = "http://urapms.brasiltelecom.com.br/pms/RelatorioDisponivelViewServlet?" & tTbl
CaminhoLocal = "\\km3rede\aplcopel\Relacionamento_Clientes\ISOAcesso\Relatórios\Acompanhamento Diário\Diario\TESTE_WAGNER\ocupadas.xls"
Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
MsgBox "Download efetuado com sucesso!"
Exit Sub
Err:
MsgBox "Erro no download do arquivo"
Eu criei uma public para completar o exemplo do Tomas.
Código: Selecionar todos
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