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:
Agora preciso automatizar para salvar em uma pasta predeterminada.
Obrigado
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Acessar link e salvar como
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: Acessar link e salvar como
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?
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