继续获得运行时错误VBA

时间:2015-04-22 06:58:36

标签: excel vba login unspecified

我试图通过主登录页面和第二个一次性密码(OTP)页面登录我的网站。但我得到了错误

运行时错误' -2147467259(80004005)':

自动化错误

未指定的错误

在此行找到:

 If InStr(wd.document.Title, "Sales Force Automation") <> 0 Then

我在这里做错了什么?我刚接触这种语言,因为我刚开始在2天前学习它。

Dim wd As SHDocVw.InternetExplorer

Sub login()
    Dim username As Range
    Dim password As Range
    Dim otp As Range
    Dim myValue As Variant

    Set wd = CreateObject("InternetExplorer.Application")
    wd.silent = True
    wd.navigate "Http://www.XXXXXXXXXXX.com"
    wd.Visible = True

    Set username = Range("B1")
    Set password = Range("B2")

    While wd.Busy
        DoEvents
    Wend

    wd.document.all.UserId.Value = username
    wd.document.all.password.Value = password

    Application.Wait (Now + TimeValue("0:00:10"))

    wd.document.all.btnobj.Click

    myValue = InputBox("Enter OTP")
    Range("B3").Value = myValue


Err_Clear:
    If Err <> 0 Then
        Err.Clear
        Resume Next
    End If

    Call FindTicketWindow
End Sub

Sub FindTicketWindow()
    Dim otp As Range

    For Each wd In CreateObject("Shell.Application").Windows
        If wd = "Internet Explorer" Then
            If InStr(wd.document.Title, "Sales Force Automation") <> 0 Then
                Application.Wait (Now + TimeValue("0:01:00"))
                Exit For
            End If
        End If
    Next wd

    Set otp = Range("B3")

    While wd.Busy
        DoEvents
    Wend

    myVar = wd.document.Title

    wd.document.all.verficationcode.Value = otp
    Application.Wait (Now + TimeValue("0:00:10"))
    wd.document.all.btnobj.Click
End Sub

1 个答案:

答案 0 :(得分:0)

之前我遇到过这样的问题,我发现VBA正在尝试对该对象进行操作,然后才能按照代码的预期创建或更改该对象。因此,当逐步完成代码工作时,因为它在步骤之间有足够的时间来完成计算。