How to handle IE objects that do not contain an ID? VBA Access

Question

Good afternoon, I am not able to manipulate (inmputar value) objects (textbox) of an IE page, because these objects do not have ID. Follow the code I’m using

Dim IE As InternetExplorer
Dim Ulogin As Boolean, ieForm
Dim NumProc As String: NumProc = Me.ComarcaProcesso
Dim Email As String: Email = "[email protected]"
Dim Senha As String: Senha = "123456"

 Set IE = New InternetExplorer
 Set IE = CreateObject("InternetExplorer.Application")

 'Abre o IE maximizado.
  IE.Visible = True
  IE.navigate "http://www.tjrs.jus.br/site/processos/tjrs_push/"
  apiShowWindow IE.hwnd, SW_MAXIMIZE

 'Espera até que a página esteja totalmente carregada.
 Do Until IE.ReadyState = READYSTATE_COMPLETE
 Loop

 'Nessa parte você deve conhecer a propriedade "name" dos elementos input do site que irá logar.
  IE.Document.all("email").innerText = Email
  IE.Document.all("senha").innerText = Senha

 'Nessa parte você deve informar o nome (propriedade name) do formulário a ser submetido.
  IE.Document.all("login").Click

    Do
    'Coloca o nome do campo usuário do form na página.
     IE.Document.all("input_num_themis").innerText = NumProc

     DoCmd.GoToRecord , , acNext
    Loop

End Sub

Answer 1

If you inspect the element, you will notice that the fields you want to edit are inside a iframe, whose source is /proc/sistema_push/. Therefore, to reference the email and password fields, you need to first reference the iframe. To fetch the iframe, let’s iterate the page iframes, and compare the URL. Note that the attribute src contains a relative path, but the value returned by the attribute URLof iframe is absolute, so we will add the domain of the Court’s website in the comparison term.

I will only add a variable (Cont) and an instruction block for.

Come on:

Sub MacacoLoko()
    Dim IE As InternetExplorer
    Dim docHTML As HTMLDocument
    Dim Ulogin As Boolean, ieForm
    Dim NumProc As String: NumProc = Me.ComarcaProcesso
    Dim Email As String: Email = "[email protected]"
    Dim Senha As String: Senha = "123456"
    Dim Cont As Variant 'Vai ser o marcador para iterar as iframes em busca da correta (embora esse site só tenha uma, outros sites de tribunais podem ter mais, ou o site pode ser reformulado)

    Set IE = New InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")

    'Abre o IE maximizado.
     IE.Visible = True
     IE.navigate "http://www.tjrs.jus.br/site/processos/tjrs_push/"
     apiShowWindow IE.Hwnd, SW_MAXIMIZE

    'Espera até que a página esteja totalmente carregada.
    Do Until IE.readyState = READYSTATE_COMPLETE
    Loop

    'Itera as iframes, buscando a correta (no nosso caso, procuraremos pelo atributo "src" da tag "iframe".
    For Each Cont In IE.Document.getElementsByTagName("iframe")
       If Cont.src = "http://www.tjrs.jus.br/proc/sistema_push/" Then Set docHTML = Cont 'Atribuímos docHTML à iframe correta. Importante: O atributo "src" no HTML da página está em caminho relativo, mas a URL da frame tem que ser buscada com a URL completa.
    Next Cont

    'Nessa parte você deve conhecer a propriedade "name" dos elementos input do site que irá logar.
     docHTML.all("email").innerText = Email
     docHTML.all("senha").innerText = Senha

    'Nessa parte você deve informar o nome (propriedade name) do formulário a ser submetido.
     IE.Document.all("login").Click

   'Daqui pra frente eu não testei; talvez seja necessário reatribuir o "dochtml", caso o número do processo esteja dentro de outra iframe, mas você já entendeu como se faz isso.
   Do
   'Coloca o nome do campo usuário do form na página.
    IE.Document.all("input_num_themis").innerText = NumProc

    DoCmd.GoToRecord , , acNext
   Loop

End Sub

Answer 2

\\You can easily access all Iframe data. Just set it twice in case . In fact you arrow it and then arrow the entire document with VBA.. Note: Set iframe = Htmldoc.all("Name of my frame you inspect it.") Set iframe2 = iframe.contentDocument