многократное использование Internet Explorer Объект автоматизации COM

Попробуйте следующее:

Set IEObject =  GetObject( ,"InternetExplorer.Application" )

* Обратите внимание на запятую перед "InternetExplorer.Application"

ИЗМЕНИТЬ: Попробуйте следующее:

Dim IE As SHDocVw.InternetExplorer

Set IE = GetObject(,"InternetExplorer.Application")

Вы также можете попробовать следующее:

Dim ShellApp
Set ShellApp = CreateObject("Shell.Application")
Dim ShellWindows
Set ShellWindows = ShellApp.Windows()
Dim i
For i = 0 To ShellWindows.Count - 1
    If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
        Set IEObject = ShellWindows.Item(i) 
    End If
Next
IEObject.Navigate2("http://www.google.com")

EDIT:
То, что вы пытаетесь сделать, может оказаться невозможным, взгляните на это. http://support.microsoft.com/kb/239470