tenho um modulo com o código logo a baixo, ele funciona se coloco no evento do botão. porem eu queria colocar ele em um modulo e chamar com o codigo call ecac_dctf, porem da o erro "Esperado variável ou procedimento, não módulo"
obs. nunca trabalhei com modulo estou começando a aprender, e to confuso por que não entendo como funciona.
Public Function ecac_dctf() As String
Dim driver As WebDriver ' essa linha deve ficar no inicio do modulo.
Set driver = New ChromeDriver
driver.Get "https://cav.receita.fazenda.gov.br/autenticacao/login" ' vai ate a pagina desejada
Sleep 1000
driver.FindElementByXPath("//*[@id='login-dados-certificado']/p[2]/a/img").Click
Sleep 4000
driver.FindElementByXPath("//*[@id='cert-digital']/a").Click
Sleep 9000
driver.FindElementByXPath("//*[@id='btnPerfil']/span").Click
Sleep 1000
driver.FindElementByXPath("//*[@id='txtNIPapel2']").Click
Sleep 1000
driver.FindElementByXPath("//*[@id='txtNIPapel2']").SendKeys ("02422951000184")
Sleep 1000
driver.FindElementByXPath("//*[@id='formPJ']/input[4]").Click
Sleep 4000
driver.FindElementByXPath("//*[@id='btn214']/a").Click
Sleep 3000
driver.FindElementByXPath ("//*[@id='containerServicos214']/div[2]/ul/li[2]/a")
Sleep 3000
End Function
obs. nunca trabalhei com modulo estou começando a aprender, e to confuso por que não entendo como funciona.
Public Function ecac_dctf() As String
Dim driver As WebDriver ' essa linha deve ficar no inicio do modulo.
Set driver = New ChromeDriver
driver.Get "https://cav.receita.fazenda.gov.br/autenticacao/login" ' vai ate a pagina desejada
Sleep 1000
driver.FindElementByXPath("//*[@id='login-dados-certificado']/p[2]/a/img").Click
Sleep 4000
driver.FindElementByXPath("//*[@id='cert-digital']/a").Click
Sleep 9000
driver.FindElementByXPath("//*[@id='btnPerfil']/span").Click
Sleep 1000
driver.FindElementByXPath("//*[@id='txtNIPapel2']").Click
Sleep 1000
driver.FindElementByXPath("//*[@id='txtNIPapel2']").SendKeys ("02422951000184")
Sleep 1000
driver.FindElementByXPath("//*[@id='formPJ']/input[4]").Click
Sleep 4000
driver.FindElementByXPath("//*[@id='btn214']/a").Click
Sleep 3000
driver.FindElementByXPath ("//*[@id='containerServicos214']/div[2]/ul/li[2]/a")
Sleep 3000
End Function