运行时错误429：ActiveX组件无法在CreateObject中创建对象（＆＃34; InternetExplorer.Application＆＃34;）

Question

您好在执行以下代码时遇到此错误

Sub TableExample()


    Dim IE As Object
    Dim doc As Object
    Dim strURL As String

    strURL = "http://www.idealo.de/preisvergleich/OffersOfProduct/143513.html"


    Set IE = CreateObject("InternetExplorer.Application")
    With IE
         '.Visible = True
        .navigate strURL
        Do Until .readyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        Set doc = IE.document
        GetAllTables doc

        .Quit
    End With

End Sub

错误就在这一行

Set IE = CreateObject("InternetExplorer.Application")

如果我将其更改为

With CreateObject("WINHTTP.WinHTTPRequest.5.1")

我使用的是64位Windows 7和Office 2010版本

那么代码应该是什么，任何人都可以指导我吗？