Access Site By Loggin

Question

I am not able to access this site below because I can not locate by VBA a way to enter the Login and password. Would anyone know how to access these fields

https://www.newspace.com.br/pan/

I tried to access searching for frames, but still could not access

Answer 1

Try the following code:

Private Sub AcessarSite()
    Dim driver As InternetExplorer
    Dim elem As HTMLBaseElement
    Dim url As String

    url = "https://www.newspace.com.br/pan/"

    Set driver = New InternetExplorer
    driver.Visible = True
    driver.Navigate url

 Set doc = driver.document.frames
 Set doc1 = doc.frames("Principal")

    doc1.document.getElementById("Usuario").innerText = "USUARIO CORRETO"
    doc1.document.getElementById("Senha").innerText = "SENHA CORRETA"
    doc1.document.getElementById("Ok").Click

    Set driver = Nothing
End Sub

I tested here and it worked, the problem was really with the frames.