Boa tarde! Estou tentando automatizar o preenchimento de um formulário de um site, porém, estou com dificuldades de entrar no menu onde está o formulário. Funciona assim: eu faço o login no site através de um userform, onde informo o usuário e senha e clico em "logar"... até ai ok, consegui fazer. Após logar, preciso entrar em um menu que se expande quando passo o mouse em cima e ele abre outros submenus (+ 2 níveis). Preciso clicar no segundo nível de um desses submenus para visualizar o formulário e não estou conseguindo fazer a macro clicar. Não sei se consegui explicar bem, não conheço muito de programação. Vou deixar o código do VBA. Agradeço quem puder ajudar e se precisarem de mais informação, me avise que envio. Obs.: achei essa postagem mas não funcionou no meu caso: Acessar menu mouseover por VBA
Sub Robo_APAC_1()
Dim IE As InternetExplorer
'Cria um objeto Internet Explorer
Set IE = New InternetExplorer
'Torna o objeto visível
IE.Visible = True
'Navega ao site do SIGA Saúde
IE.Navigate "http://siga.saude.prefeitura.sp.gov.br/sms/login.do?method=logoff"
'Identifica se a página já foi totalmente carregada
While IE.ReadyState <> READYSTATE_COMPLETE
Wend
'aguardar 3 segundos (se necessário)
'sng = Timer
'Do While sng + 3 > Timer
'Loop
IE.Document.All("j_username").Value = frmlogin.txbLogin
IE.Document.All("j_password").Value = frmlogin.txbSenha
IE.Document.All("confirmar").Click
'fehca a tela te login
Unload frmlogin
'aguardar 2 segundos antes de validar o logon
sng = Timer
Do While sng + 2 > Timer
Loop
'verifica se teve exito no login. Caso negativo, avisa o usuário e encerra a macro
i = IE.Document.body.getElementsbytagname("table")
If i Is Nothing Then GoTo continua
If InStr(i.innertext, "Usuário ou senha inválido") > 0 Then
IE.Quit
MsgBox "Usuário ou senha inválido!", vbCritical, "Login"
Exit Sub
End If
continua: Set link = IE.Document.body.getElementsbytagname("a") For Each j In link If j.innertext = "APAC" Then j.Click Exit For End If Next j
End Sub
Editado 17/02:
MENU PRINCIPAL:
<div id="reg" style="left:297;width:100" onmouseover="handleMouseOver(event || evt)" onmouseout="handleMouseOut(event)" onclick="scheduleHideTree2(Tree.getElementNode(this))" class="">
REGULAÇÃO
</div>
NIVEL 1:
<div id="reg_apac" onmouseover="handleMouseOver(event || evt)" onmouseout="handleMouseOut(event)" class="">
APAC
</div>
NIVEL 2:
<div id="reg_preenchimento_solic" onmouseover="handleMouseOver(event || evt)" onmouseout="handleMouseOut(event)" onclick="setUrl(this,' http://siga.saude.prefeitura.sp.gov.br:80/sms/preenchimentoLaudo.do?method=initUseCaseAndInsert&subsystem=apac')" class="">
Preenchimento do Laudo de Solicitação
</div>
Imagem do menu: https://imgur.com/a/tX10HSs
javascript
DIV
,SPAN
,TABLE
e afins, que ficam ocultas e vão tendo a visibilidade ajustada conforme o usuário aponte para uma ou outra. O que você pode fazer é olhar qual é o elemento HTML em que você quer clicar, para enviar um evento click para ele. Usando o Chrome, clique com o botão direito no elemento, depoisInspecionar
. Se não tiver aberto no lugar exato, repita a operação. Cole o HTML na pergunta.