Skip to main content
adicionou 4 caracteres ao conteúdo; título editado
Fonte Link
Dherik
  • 11,4mil
  • 2
  • 45
  • 68

Acessar menu mouseover por VBA - Respondido

Necessito da ajuda de vocês! Estou

Estou desenvolvendo uma aplicação em VBA para extrair arquivos de um sistema interno da empresa, onde apos logado no site, a tela exibida tem um menubar por acesso a mouseouver, onde ao passar o mouse encima do menu "Relatórios" abre uma lista e no ultimo item da lista que é "Gerencial", onde preciso fazer um evento de click nele para prosseguir para a próxima tela, onde terei txtbox de data e turno e os botões para extrair os relatórios. Mas como ainda não consegui desenvolver a macro para selecionar o item "gerencial" do menubar, estou impossibilitado de prosseguir. Resumindo

Resumindo, preciso que o VBA consiga chamar o menu relatorios do javascript onde esta o item gerencial e click para prosseguir para a proxima tela.

Acessar menu mouseover por VBA - Respondido

Necessito da ajuda de vocês! Estou desenvolvendo uma aplicação em VBA para extrair arquivos de um sistema interno da empresa, onde apos logado no site, a tela exibida tem um menubar por acesso a mouseouver, onde ao passar o mouse encima do menu "Relatórios" abre uma lista e no ultimo item da lista que é "Gerencial", onde preciso fazer um evento de click nele para prosseguir para a próxima tela, onde terei txtbox de data e turno e os botões para extrair os relatórios. Mas como ainda não consegui desenvolver a macro para selecionar o item "gerencial" do menubar, estou impossibilitado de prosseguir. Resumindo, preciso que o VBA consiga chamar o menu relatorios do javascript onde esta o item gerencial e click para prosseguir para a proxima tela.

Acessar menu mouseover por VBA

Necessito da ajuda de vocês!

Estou desenvolvendo uma aplicação em VBA para extrair arquivos de um sistema interno da empresa, onde apos logado no site, a tela exibida tem um menubar por acesso a mouseouver, onde ao passar o mouse encima do menu "Relatórios" abre uma lista e no ultimo item da lista que é "Gerencial", onde preciso fazer um evento de click nele para prosseguir para a próxima tela, onde terei txtbox de data e turno e os botões para extrair os relatórios. Mas como ainda não consegui desenvolver a macro para selecionar o item "gerencial" do menubar, estou impossibilitado de prosseguir.

Resumindo, preciso que o VBA consiga chamar o menu relatorios do javascript onde esta o item gerencial e click para prosseguir para a proxima tela.

título editado
Link

Acessar menu mouseover por VBA - Respondido

adicionou 148 caracteres ao conteúdo
Fonte Link
Luiz Augusto
  • 2,5mil
  • 17
  • 16
  • 30
    `Dim HTMLdoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
   sURL = "http://tdbsorsvr034/tdb-rcs-report/"
   'sURL = "http://tdbsorsvr034/tdb-rcs-report/reports/management/"
Set oBrowser = New InternetExplorer
   oBrowser.Silent = True
   oBrowser.timeout = 60
   oBrowser.navigate sURL
   oBrowser.Visible = True

Do
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLdoc = oBrowser.document
  HTMLdoc.all.j_username.Value = "BXIMENES"
  HTMLdoc.all.j_password.Value = "123456"
  HTMLdoc.all.loginBtnId.onclick
  'HTMLdoc.all.[ui-menuitem-link ui-corner-all].Value = "PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a92',formId:'j_id196380812_76b57a10'})"
  

  
  
For Each oHTML_Element In HTMLdoc.getElementsByTagName("input")
    If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:

    
Resume Next`

Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "http://tdbsorsvr034/tdb-rcs-report/" 'sURL = "http://tdbsorsvr034/tdb-rcs-report/reports/management/" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.navigate sURL oBrowser.Visible = True

Do Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLdoc = oBrowser.document HTMLdoc.all.j_username.Value = "BXIMENES" HTMLdoc.all.j_password.Value = "123456" HTMLdoc.all.loginBtnId.onclick 'HTMLdoc.all.[ui-menuitem-link ui-corner-all].Value = "PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a92',formId:'j_id196380812_76b57a10'})"

For Each oHTML_Element In HTMLdoc.getElementsByTagName("input") If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next Err_Clear:

Resume Next`

`Dim HTMLdoc As HTMLDocument

Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "http://tdbsorsvr034/tdb-rcs-report/" 'sURL = "http://tdbsorsvr034/tdb-rcs-report/reports/management/" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.navigate sURL oBrowser.Visible = True

Do Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLdoc = oBrowser.document HTMLdoc.all.j_username.Value = "BXIMENES" HTMLdoc.all.j_password.Value = "123456" HTMLdoc.all.loginBtnId.onclick 'HTMLdoc.all.[ui-menuitem-link ui-corner-all].Value = "PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a92',formId:'j_id196380812_76b57a10'})"

For Each oHTML_Element In HTMLdoc.getElementsByTagName("input") If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next Err_Clear:

Resume Next`

    `Dim HTMLdoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
   sURL = "http://tdbsorsvr034/tdb-rcs-report/"
   'sURL = "http://tdbsorsvr034/tdb-rcs-report/reports/management/"
Set oBrowser = New InternetExplorer
   oBrowser.Silent = True
   oBrowser.timeout = 60
   oBrowser.navigate sURL
   oBrowser.Visible = True

Do
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLdoc = oBrowser.document
  HTMLdoc.all.j_username.Value = "BXIMENES"
  HTMLdoc.all.j_password.Value = "123456"
  HTMLdoc.all.loginBtnId.onclick
  'HTMLdoc.all.[ui-menuitem-link ui-corner-all].Value = "PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a92',formId:'j_id196380812_76b57a10'})"
  

  
  
For Each oHTML_Element In HTMLdoc.getElementsByTagName("input")
    If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:

    
Resume Next`
removeu 339 caracteres do conteúdo; removeu 3 caracteres do conteúdo; removeu 1 caractere do conteúdo
Fonte Link
Carregando
Fonte Link
Carregando