VBA运行时错误' -2147417848(80010108)'

时间:2017-12-20 06:57:36

标签: excel-vba vba excel

我正在尝试连接到网页并输入一个值,但它给出了运行时错误,如下所示:

  

Run-time error '-2147417848 (80010108)'.

这是我的代码:

Sub OpenMyURL()
Dim eRow As Long
Dim ele As Object
Set objIE = CreateObject("InternetExplorer.Application")
myjobtype = InputBox("Enter offer name")
With objIE
    .Visible = True
    .navigate "visualreports.aexp.com/#/views/AmexOffersPersistenceReport/…; 'getting runtime error here "
    Do While .Busy Or .readyState <> 4
        DoEvents
    Loop
    Set what = objIE.document.getElementsByName("omniboxTextBox")
    what.Item(0).Value = myjobtype
    .document.getElementById("JobsButton").Click
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        Set objIE = Nothing
End Sub

0 个答案:

没有答案