VBA automation error in CreateObject(“InternetExplorer.Application”)

前端 未结 3 2090
谎友^
谎友^ 2020-12-15 14:06

I am getting the an automation error while invoking the following object

Set IE = CreateObject(\"InternetExplorer.Application\")

The error

3条回答
  •  被撕碎了的回忆
    2020-12-15 15:08

    Add the code to make sure all IE browsers are fully closed right before the Set line.
    `Set IE = CreateObject("InternetExplorer.Application")`

    Change it to:
    Call IE_Sledgehammer
    Set IE = CreateObject("InternetExplorer.Application")

    Add the Sledgehammer module as its own macro somewhere else in the workbook:

    Sub IE_Sledgehammer()
    Dim objWMI As Object, objProcess As Object, objProcesses As Object
    Set objWMI = GetObject("winmgmts://.")
    Set objProcesses = objWMI.ExecQuery( _
    "SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")
    For Each objProcess In objProcesses
    On Error Resume Next
    Call objProcess.Terminate
    Next
    Set objProcesses = Nothing: Set objWMI = Nothing
    End Sub

提交回复
热议问题