FORMULARIO VBA COM WEBBROWSER - CLICAR EM ENVIAR
Prezados o preenchimeto automático dos campos User e senha consegui preencher no WebBrowser. estou com problemas para clicar no botão enviar.
em anexo imagem com o código fonte.
WebBrowser3.Document.all([Ô]ctl00_ContentPlaceHolder1_txtNameUser[Ô]).Value = [Ô]XXXXXXX[Ô]
WebBrowser3.Document.all([Ô]ctl00_ContentPlaceHolder1_txtPassUser[Ô]).Value = [Ô]XXXXXXX[Ô]
játentei e não deu certo
WebBrowser3.Document.GetElementById([Ô]ctl00_ContentPlaceHolder1_btnSubmit[Ô]).InvokeMember([Ô]click[Ô])
Grato
em anexo imagem com o código fonte.
WebBrowser3.Document.all([Ô]ctl00_ContentPlaceHolder1_txtNameUser[Ô]).Value = [Ô]XXXXXXX[Ô]
WebBrowser3.Document.all([Ô]ctl00_ContentPlaceHolder1_txtPassUser[Ô]).Value = [Ô]XXXXXXX[Ô]
játentei e não deu certo
WebBrowser3.Document.GetElementById([Ô]ctl00_ContentPlaceHolder1_btnSubmit[Ô]).InvokeMember([Ô]click[Ô])
Grato
Encontrie a Solução --------->>>
With WebBrowser3.Document
DoEvents
For i = 0 To WebBrowser3.Document.Forms(0).Length - 1
If WebBrowser3.Document.Forms(0)(i).Type = [Ô]submit[Ô] Then
WebBrowser3.Document.Forms(0)(i).Click
Exit Sub
End If
Next i
End With
With WebBrowser3.Document
DoEvents
For i = 0 To WebBrowser3.Document.Forms(0).Length - 1
If WebBrowser3.Document.Forms(0)(i).Type = [Ô]submit[Ô] Then
WebBrowser3.Document.Forms(0)(i).Click
Exit Sub
End If
Next i
End With
Tópico encerrado , respostas não são mais permitidas