none
DOWNLOAD DE ARQUIVOS RRS feed

  • Pergunta

  • https://agentes.ons.org.br/download/operacao/hidrologia/arquivoMLTENAS_201709.pdf

    Seguinte:

    O link já abre direto a opção para 'Abrir', 'Salvar' e 'Cancelar'. Eu precisava automatizar o clique na seta de 'Salvar', ir em 'Salvar como' e salvá-lo com xls. Mas como a página está em branco e aparece apenas esse "caixa" eu não consigo ver a referência dos botões através do desenvolvedor F12. Como eu faço para fazer este download automáticamente?

    Agradeço desde já.
    Leandro

    sexta-feira, 16 de março de 2018 18:08

Todas as Respostas

  • Leandro no chrome, com a tecla F12 consegue ver o código fonte da pagina, mas eu não achei a opção de salvar como *xls.

    

    Tentei baixar aqui e na hora de salvar coloquei a  extensão como *.xls, mas arquivo ficou ilegível.

    Acredito que consiga salvar como desejado com o adobe-pro. 

    De qualquer forma segue exemplo para salvar como pdf, caso seja util. 

    Sub Download_PDF_Web()
        Dim miPath As String
        Dim miURL As String
        
        miPath = "C:\temp\arquivoMLTENAS_201709.pdf"
        miURL = "https://agentes.ons.org.br/download/operacao/hidrologia/arquivoMLTENAS_201709.pdf"
        
        Dim WinHttpReq As Object
        Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
        WinHttpReq.Open "GET", miURL, False
        WinHttpReq.Send
        
        If VBA.Dir(miPath) <> "" Then
            VBA.Kill miPath ' deleta o arq. caso exista
        End If
        
        myURL = WinHttpReq.ResponseBody
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.ResponseBody
        oStream.SaveToFile miPath
        oStream.Close
        
    End Sub
    

     

     

    Click em propor como resposta se foi util a voce. ricardodm@outlook.com.br

    domingo, 18 de março de 2018 17:00