Vídeo recomendado
https://youtu.be/Ju8Esra5--I

SELENIUM VBA + DOWNLOAD DE ARQUIVOS

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.
andre_oliv
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Ago 16, 2022 7:56 am

SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por andre_oliv »

Pessoal, boa tarde!
Sou novo aqui no fórum.
Estou com dificuldade para a seguinte situação: preciso fazer um loop em uma tabela, onde cada linha da tabela tem um botão que ao clicar abre um menu com opções. Em cada linha preciso clicar no botão de ações e depois no de imprimir, porém, não estou conseguindo.
Em anexo segue o código da página.
Anexos
código da página.png
código da página.png (127.63 KiB) Exibido 20183 vezes


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por webmaster »

andre_oliv,

Até onde conseguiu chegar? Onde parou exatamente? A página é pública?


andre_oliv
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Ago 16, 2022 7:56 am

Re: SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por andre_oliv »

Boa noite!
Estou preso na primeira linha da tabela, não consigo sair disso.
Cada página exibe uma tabela com 100 linhas.
Eu consigo contar as linhas mas não sei uma forma de fazer ir para a próxima.
A página não é pública. É um sistema ERP utilizado na empresa que trabalho.

Dim chrome As New ChromeDriver
Dim by As New selenium.by
Dim tbl As WebElement
Dim tbltr As WebElements
Dim act As selenium.TableRow



With chrome

'.AddArgument "--headless"
.SetPreference "download.default_directory", ThisWorkbook.Path
.SetPreference "download.directory_upgrade", True
.SetPreference "download.prompt_for_download", False
.SetPreference "safebrowsing.enabled", True
.SetPreference "plugins.plugins_disabled", Array("Chrome PDF Viewer")
.Start
.Window.Maximize
.Get "https://gestaoclick.com/contratos_servicos/?menu=MTAz"
.FindElementById("UsuarioEmail").SendKeys
.FindElementById("UsuarioSenha").SendKeys
.FindElementByCss(".bg-olive").Click

Set tbl = chrome.FindElementByXPath("//*[@id='form']/div/table")

rcount = tbl.FindElementsByTag("tr").Count

Debug.Print rcount

For I = 1 To rcount

'preso à primeira linha da tabela "tr[1], pois não sei uma forma de ir para a próxima linha
.FindElementByXPath("//*[@id='form']/div/table/tbody/tr[1]/td[9]/div/button").Click
.FindElementByLinkText("Imprimir PDF").Click

Next I


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por webmaster »

Sem acesso a página vai ser complicado.

Em qual linha acontece o erro?


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por webmaster »

Aliás, o elemento não precisa estar visível na página para você chamar o "click" dele. Pegar o Xpath do botão de impressão deve ser o suficiente.

Já tentou isso?


andre_oliv
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Ago 16, 2022 7:56 am

Re: SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por andre_oliv »

Já sim.
Porém, quando pego o xpath do botão ele fica refecenciado ao tr da tabela (no caso, o número da linha, conforme parte do código que postei tr[1].
Estou partinto para outra alternativa: a opção de imprimir é um linktext, então, o que eu posso fazer é extrair cada linktext para uma planilha e após abrir cada um.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: SELENIUM VBA + DOWNLOAD DE ARQUIVOS

Mensagem por webmaster »

Chegou a testar o XPath?

https://youtu.be/9R4kds0BRKQ


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