参考 Internet Explorer - 使用 Internet Explorer 对象模型

我想在运行时创建一个 Internet Explorer 对象，并且需要它来引用或查找已在当前会话中打开的浏览器对象 (IE)。

使用以下代码作为启动创建一个新的 Internet Explorer 对象并打开浏览器并引用该对象。但是如何创建一个 Internet Explorer 对象，它将帮助我们识别会话中打开的现有浏览器，而不是打开新的浏览器窗口。

Set IE = CreateObject("InternetExplorer.Application")

谁能帮我解决这个问题。谢谢。

您可以使用Shell.Application反对找到一个已经运行的IE实例.

Set sh = CreateObject("Shell.Application")
For Each wnd In sh.Windows
  If InStr(1, wnd.FullName, "iexplore.exe", vbTextCompare) > 0 Then
    Set ie = wnd
    Exit For
  End If
Next

上面的内容将附加到找到的第一个实例。如果您删除Exit For相反，它将附加到找到的最后一个实例。