Bom dia , tarde e noite senhores!
tenho o seguinte código :
Private Sub Comando0_Click()
' codigo adaptado do exemplo do Sr JPaulo
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
'apiShowWindow ie.Hwnd, SW_MAXIMIZE
ie.navigate "http://
While ie.busy
DoEvents
Wend
'ie.Document.all("username").Value = NomeUsuario
'ie.Document.all("password").Value = SenhaUsuario
'ie.Document.Forms("form_login").submit
'SendKeys "{get_started_button}", True
O erro está nesta parte aqui em baixo , na hora de apertar o botão
ie.Document.all("get_started_button").Click
SendKeys "{get_started_button}", True
While ie.busy
DoEvents
Set ie = Nothing
End Sub
Ele acesa normalmente a pagina porem não aperta o botão para logar.
os campos são preenchidos automaticamente.
alguém pode me ajudar ?
tenho o seguinte código :
Private Sub Comando0_Click()
' codigo adaptado do exemplo do Sr JPaulo
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
'apiShowWindow ie.Hwnd, SW_MAXIMIZE
ie.navigate "http://
While ie.busy
DoEvents
Wend
'ie.Document.all("username").Value = NomeUsuario
'ie.Document.all("password").Value = SenhaUsuario
'ie.Document.Forms("form_login").submit
'SendKeys "{get_started_button}", True
O erro está nesta parte aqui em baixo , na hora de apertar o botão
ie.Document.all("get_started_button").Click
SendKeys "{get_started_button}", True
While ie.busy
DoEvents
Set ie = Nothing
End Sub
Ele acesa normalmente a pagina porem não aperta o botão para logar.
os campos são preenchidos automaticamente.
alguém pode me ajudar ?