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