Código: Selecionar todos
Sub x()
Dim ie As InternetExplorer
Dim C
Dim ULogin As Boolean, ieForm
Dim MyPass As String, MyLogin As String
redo:
MyLogin = Application.InputBox("Por Favor entre com o Login", "Forum Tomás Vásquez", Default:="login", Type:=2)
MyPass = Application.InputBox("Por favor entre com a senha", "Forum Tomás Vásquez", Default:="Password", Type:=2)
If MyLogin = "" Or MyPass = "" Then GoTo redo
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.tomasvasquez.com.br/forum/ucp.php?mode=login"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.all("username").innerText = MyLogin
ie.Document.all("password").innerText = MyPass
'obtém o forma a qual o controle de login pertence para submetê-lo
ie.Document.all("username").form.all("login").Click
If ULogin = False Then MsgBox "Usuário logado"
Set ie = Nothing
End Sub
Sub Referencia()
Dim ObRef
On Error Resume Next
' Adiciona Controles da Net
ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1
End Sub
Bem, estou usando a mesma metodologia para meu formulário com 3 campos, ele roda coleta as informações e ao enviar da erro, segue trecho alterado/adaptado:
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.all("wfcFirstname_2172286_0").innerText = MyName
ie.Document.all("wfcPhone_6190272_0").innerText = MyMail
ie.Document.all("wfcLastname_3438686_0").innerText = MyWallet
'obtém o forma a qual o controle de login pertence para submetê-lo
ie.Document.all("wfcFirstname_2172286_0") .all("wfcPhone_6190272_0") .form.all("wfcLastname_3438686_0").Click
O erro gera nesta linha:
ie.Document.all("wfcFirstname_2172286_0") .all("wfcPhone_6190272_0") .form.all("wfcLastname_3438686_0").Click
alguma ajuda para resolver isso por favor