Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Download arquivo web

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Download arquivo web

Mensagem por Wagner.cwb »

Olá Colegas,

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
    
Mais especificamente neste ponto:

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"
[/code]

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
Obrigado!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Download arquivo web

Mensagem por Wagner.cwb »

Meus caros, boa noite,

esta parte esta mais complicada do que eu imaginava...
Por favor, se puderem ajudar, pode ser com sugestões que eu corro atrás de pesquisar.

Até o momento encontrei uma possível solução, mas na prática não rodou...

Código: Selecionar todos

Private Declare Function ScriptInternet _
Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal Operation As String, ByVal filename As String, _
Optional ByVal Parameters As String, Optional ByVal directory As String, _
Optional ByVal WindowStyle As Long = vbMinimizedFocus) As Long

Public Sub openUrl()
Dim iAcesso As Long
iAcesso = ScriptInternet(0, "Open", "URL")
End Sub

"http://urapms.brasiltelecom.com.br/pms/ ... ?id=222480" no lugar da URL, abre assim:
Rel.PNG
Rel.PNG (7.72 KiB) Exibido 3713 vezes
O detalhe que quando abre o que esta na imagem ele pede autenticação, pois abre em outra janela, só consigo evitar isso
se abrir no mesma janela do navegador e eu não sei como fazer...

Então, tenho dois desafios, fazer abrir na mesma pagina do navegador ou autenticar e depois conseguir fazer "salvar como",
por favor, podem me ajudar?

Abraços!


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Download arquivo web

Mensagem por Wagner.cwb »

Olá Amigos,

existe alguma solução?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder