Automation VBA宏会出错

Question

获取运行时错误'2147417848（80010108） 自动化错误 调用与客户端断开连接的对象

这是我的代码 -

Private Sub CommandButton1_Click()
    Dim IE As Object

    comID = InputBox("Please Enter the Team Members Common ID")

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://qverify/"

      Application.StatusBar = "Submitting"
  ' Wait while IE loading...

 While IE.readyState <> 3: DoEvents: Wend

    IE.document.getElementById("CommonID")(0).Value = comID


    Application.StatusBar = "Submitting"
  ' Wait while IE loading...

 While IE.readyState <> 4: DoEvents: Wend