Tomás Vásquez Fórum

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

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