Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro de depuração

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
hudsonalves
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Ago 02, 2018 1:55 pm

Erro de depuração

Mensagem por hudsonalves »

Olá, estou usando uma macro do site que pode ser vista aqui:

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder