在excel VBA中从IE 10转移到IE 11

Question

我有一些代码可以访问网站并登录。它工作正常，直到昨天我收到错误

  

'运行时错误'429'：   ActiveX对象无法创建对象

我查了一下，现在Internet Explorer已经从我的程序中消失了。这是我的代码：

Dim IE As Object
Dim strURL As String
Dim objelement As Object
Sub login()
' Add reference to Microsoft Internet Controls
' Add reference to Microsoft HTML Object Library


Set IE = New SHDocVw.InternetExplorer
IE.Visible = True
IE.navigate "https://minecraft.net/profile"

While IE.Busy
DoEvents
Wend
Do Until Not IE.Busy And IE.readyState = 4
 DoEvents
 Loop
IE.document.getElementById("username").Value = "bobbybobwob"
IE.document.getElementById("password").Value = "ceylon878"

Dim htmlForm As HTMLFormElement
Set htmlForm = IE.document.getElementById("loginForm")
htmlForm.submit
' **********************************************************************
'IE.Document.getElementById("username").Value = "ddddd"
' IE.Document.getElementById("password").Value = "dddddd"
' IE.Document.getElementById("signin").Click
'**********************************************************************
'Pause while page loads


Application.Wait (Now + #12:00:03 AM#)

IE.navigate "https://minecraft.net/profile/password"
Do Until Not IE.Busy And IE.readyState = 4
DoEvents
Loop
IE.document.getElementById("oldPassword").Value = "dsfsdf"
IE.document.getElementById("password").Value = "sdafsadfsdfsdafsdfsfsdf"
IE.document.getElementById("passwordConfirmation").Value =              "sdafsadfsdfsdafsdfsfsdf"
 IE.document.getElementById("submit").Click
 End Sub