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

[RESOLVIDO] Integração Celulas Excell x Selenium

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.
kirotxd
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Abr 23, 2019 2:24 pm

[RESOLVIDO] Integração Celulas Excell x Selenium

Mensagem por kirotxd »

Primeiramente me perdoem pelo código, é o meu primeiro, estou ingressando agora nesse mundo... Aceitos quaisquer críticas construtivas!

O Còdigo consiste em um auto-preenchimento do site de Geração de GNRE's, precisava que os "SendKeys" trabalhassem com as células do Excell não apenas com valores fixo, alguém poderia me ajudar?

Segue:

Código: Selecionar todos

Dim driver As WebDriver

Sub GNRE()
    Set driver = New ChromeDriver
   
    driver.Get "http://www.gnre.pe.gov.br/gnre/v/guia/index"
   
    Dim PagUfFavorecida As WebElement, PagIncritoUf As WebElement, PagIncricao As WebElement, Receitas As WebElement, TipoDoc As WebElement, NrNf As WebElement, DataVenc As WebElement, VlrGNRE As WebElement, RecIncritoUf As WebElement, RecIncricao As WebElement, ChaveEdoc As WebElement, InfComplem As WebElement
       
        Set PagUfFavorecida = driver.FindElementById("ufFavorecida")
 
        PagUfFavorecida.SendKeys "RS"
       
        Set PagIncritoUf = driver.FindElementById("optInscrito")
       
        PagIncritoUf.Click
       
        Set PagIncricao = driver.FindElementById("inscricaoEstadualEmitente")
       
        PagIncricao.SendKeys "xxxxx"
 
        Set Receitas = driver.FindElementById("receita")
       
        Receitas.Click
        Receitas.SendKeys "100099"
        Receitas.Click
       
        Set TipoDoc = driver.FindElementById("tipoDocOrigem")
        
        TipoDoc.SendKeys "Nota"
        
        Set NrNf = driver.FindElementById("documentoOrigem")
        
        NrNf.SendKeys "12345"
               
        Set DataVenc = driver.FindElementById("dataVencimento")
        
        DataVenc.SendKeys " 24042019"
        
        Set VlrGNRE = driver.FindElementById("valorPrincipal")
        
        VlrGNRE.SendKeys " 1000,00"
                
        Set RecIncritoUf = driver.FindElementById("optInscritoDest")
        
        RecIncritoUf.Click
                
        Set RecIncricao = driver.FindElementById("inscricaoEstadualDestinatario")
        
        RecIncricao.SendKeys "xxxxx"
        
        Set ChaveEdoc = driver.FindElementById("campoAdicional0")
        
        ChaveEdoc.SendKeys "  32190408228010000433550020000705501000705398"
        
        Set InfComplem = driver.FindElementById("campoAdicional1")
        
        InfComplem.SendKeys "ICMS ST PORT DISTRIBUIDORA ES"
        
   
   End Sub
   
   Sub Fechar_Navegador()
   
   Set driver = New ChromeDriver
   
   driver.Quit
   
End Sub
Editado pela última vez por kirotxd em Qui Abr 25, 2019 8:44 am, em um total de 1 vez.


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: Integração Celulas Excell x Selenium

Mensagem por webmaster »

Exemplo:

Código: Selecionar todos

PagIncricao.SendKeys Worksheets("Plan1").Range("A1") 'obtém o valor da célula A1 da planilha Plan1
PagIncricao.SendKeys InputBox "Digite o valor do campo" 'obtém de um InputBox


kirotxd
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Abr 23, 2019 2:24 pm

Re: Integração Celulas Excell x Selenium

Mensagem por kirotxd »

Agradeço a ajuda!

Mas precisava de mais um help, precisava mostrar um captcha na planilha, o input responsável pelo seu preenchimento pra poder fazer toda a operaçao em modo headless


Imagem

o Id da Imagem do Captcha é id="Imgcaptcha"
o Id da formulario do Captcha é id="captcha"


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.


kirotxd
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Abr 23, 2019 2:24 pm

Re: Integração Celulas Excell x Selenium

Mensagem por kirotxd »

Obrigadao amigo!


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