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

Coletar informações do chrome

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.
saulofelipe
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Ter Fev 19, 2019 2:51 pm

Coletar informações do chrome

Mensagem por saulofelipe »

estou tentando coletar as informações que gero em um site de consulta de clientes. eu consegui fazer todos os passos do video do Thomas e consigo gerar a informação e coloca-la em uma msgbox.
https://www.youtube.com/watch?v=IoTMNw- ... O7&index=1
No entanto eu preciso transferir essa informação para a minha planilha, por exemplo ThisWorkbook.Sheets("Plan1").range ("A10").

segue o meu código:

Dim driver As WebDriver

Public Sub teste()
Set driver = New ChromeDriver
driver.Get "endereço do site"

SendKeys "usuário"

driver.FindElementById("txtSenha").ClickDouble

driver.Wait 1000

SendKeys "senha"

driver.FindElementById("chkMostrarSenha").ClickDouble

driver.Wait 1000

driver.FindElementById("Entrar").click

'ATRAVEZ DA MATRICULA DO CLIENTE EU REALIZO A PESQUISA.

driver.FindElementById("body_matriculaTextBox").click

driver.Wait 1000

SendKeys (matricula do cliente)

driver.Wait 500

driver.FindElementById("body_pesquisarButton").click

'O SISTEMA ME RETORNA UMA TELA COM VARIAS INFORMAÇÕES DO CLIENTE, MAS NÃO É UMA TABELA.

Dim valorcpf As String
Dim tabelacpf As WebElement

valorcpf = driver.FindElementById("body_cpf_nascimentoTextBox").Value

MsgBox valorcpf

'ATÉ AQUI TUDO OK, CONSIGO REALIZAR TUDO, MOSTRA O CPF DO CLIENTE EM UMA MSGBOX, ASSIM COMO NO VIDEO DO THOMAS

'O CÓDIGO ABAIXO É ONDE EU NÃO CONSIGO COLOCAR O CPF MOSTRADO NA MSGBOX EM UMA DETERMINADA CELULA NA MINHA PLANILHA.

Set tabelacpf = driver.FindElementByXPath("//*[@id=""body_cpf_nascimentoTextBox""]").value

ThisWorkbook.Sheets("Plan1").range("A10") = tabelacpf


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: Coletar informações do chrome

Mensagem por webmaster »

Saulo,

Acho que esse "Set" não deveria existir.

Isso:

Código: Selecionar todos

Set tabelacpf = driver.FindElementByXPath("//*[@id=""body_cpf_nascimentoTextBox""]").value
Deveria ser isto

Código: Selecionar todos

tabelacpf = driver.FindElementByXPath("//*[@id=""body_cpf_nascimentoTextBox""]").value


Responder