Estou tentando automatizar um serviço com uso do Selênio e VBA, já consegui fazer login, clicar em um link, porém não estou conseguindo clicar no botão Incluir Documento.
usei o inspecionador para identificar o xpath (//*[@id='divArvoreAcoes']/a[1]/img), no entanto o VBA apresenta a mensagem de erro:
NoSuchElementError
Element not found for XPath=//*[@id='divArvoreAcoes']/a[1]/img
Alguém pode me ajudar?
Segue código que estou utilizando.
Dim driver As New ChromeDriver
driver.SetPreference "download.default_directory", "c:\Download\SEI"
driver.Start
driver.Get "https://hml.sei.seplag.al.gov.br/sip/login.php?sigla_orgao_sistema=AL&sigla_sistema=SEI"
driver.FindElementById("txtUsuario").Clear
driver.FindElementById("txtUsuario").SendKeys ("aluno01")
driver.FindElementById("pwdSenha").Clear
driver.FindElementById("pwdSenha").SendKeys ("aluno01")
driver.FindElementById("selOrgao").SendKeys (Orgao)
driver.FindElementById("selOrgao").Click
driver.FindElementById("selOrgao").SendKeys ("Treinamento")
driver.FindElementById("sbmLogin").Click
driver.Wait (1000)
driver.FindElementByLinkText(Processo).Click
driver.Wait (2000)
'Até aqui está funcionando
'------------------------------------
driver.FindElementByXPath("//*[@id='divArvoreAcoes']/a[1]/img").Click
MsgBox "Fechar browser!"
driver.Quit
usei o inspecionador para identificar o xpath (//*[@id='divArvoreAcoes']/a[1]/img), no entanto o VBA apresenta a mensagem de erro:
NoSuchElementError
Element not found for XPath=//*[@id='divArvoreAcoes']/a[1]/img
Alguém pode me ajudar?
Segue código que estou utilizando.
Dim driver As New ChromeDriver
driver.SetPreference "download.default_directory", "c:\Download\SEI"
driver.Start
driver.Get "https://hml.sei.seplag.al.gov.br/sip/login.php?sigla_orgao_sistema=AL&sigla_sistema=SEI"
driver.FindElementById("txtUsuario").Clear
driver.FindElementById("txtUsuario").SendKeys ("aluno01")
driver.FindElementById("pwdSenha").Clear
driver.FindElementById("pwdSenha").SendKeys ("aluno01")
driver.FindElementById("selOrgao").SendKeys (Orgao)
driver.FindElementById("selOrgao").Click
driver.FindElementById("selOrgao").SendKeys ("Treinamento")
driver.FindElementById("sbmLogin").Click
driver.Wait (1000)
driver.FindElementByLinkText(Processo).Click
driver.Wait (2000)
'Até aqui está funcionando
'------------------------------------
driver.FindElementByXPath("//*[@id='divArvoreAcoes']/a[1]/img").Click
MsgBox "Fechar browser!"
driver.Quit
- Anexos
- printSEI.jpg
- Você não tem permissão para fazer download dos arquivos anexados.
- (32 Kb) Baixado 3 vez(es)
Última edição por Rinaldo_al em 5/8/2022, 22:23, editado 1 vez(es)