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

Acessar link e salvar como

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

Acessar link e salvar como

Mensagem por Wagner.cwb »

Caros,

estou precisando de ajuda para gravar um arquivo disponível na web.
Consegui fazer o caminho de acessar e identificar o link, porém não consigo fazer o "clique" e "salvar como",
tem alguma forma de fazer? seja por vba ou seleniun basic?

Consigo disparar esta tela:
Imagem

Agora preciso automatizar para salvar em uma pasta predeterminada.

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: Acessar link e salvar como

Mensagem por Wagner.cwb »

Olá Pessoal,

mudei de estratégia, pois não consegui executar os "cliques", tentei usar os recursos do próprio excel, mas estou estacionado.

O arquivo que necessito também está disponível em html e em tabelas, ótimo, pensei em gravar uma macro que faça o comando Dados>Obter dados externos>Da web, gerou o código abaixo:

Tem um porém, apesar de autenticar com login e senha (fora desse código) ao passar pelo comando não obtenho os dados, pois ele não reconhece o login e senha anterior e dá erro de "impossível acessar a página".
Por favor, podem me ajudar a autenticar dentro desse código?

Código: Selecionar todos

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://urapms.brasiltelecom.com.br/pms/RelatorioDisponivelViewServlet?" & tTbl _
        , Destination:=Range("$A$1"))
        .name = "RelatorioDisponivelViewServlet?" & tTbl
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=True
    End With
    


Responder