C
cjakeman
Hi,
I've been successfully using some code posted here by Alyda Gilmore
back in 2000 for connecting Excel to an already running instance of
Internet Explorer - thanks Alyda.
Set objSW = New SHDocVw.ShellWindows
If objSW.Count Then ' new
For Each objIE In objSW
If InStr(1, objIE.FullName, "IEXPLORE.EXE") Then
Set objIE = objSW.Item
fAppRunning = True
Exit For
Else
Set objIE = CreateObject("InternetExplorer.Application")
End If
Next objIE
Else ' new
Set objIE = CreateObject("InternetExplorer.Application") ' new
End If
However, now that my organisation has upgraded to XP with SP2, the call
to
New SHDocVw.ShellWindows
fails with an out-of-memory error. Hints elsewhere on the Internet
suggest that this is a change to improve security and might be overcome
by ticking "Allow service to interact with desktop". Not sure which
service or how to tick it and our XP PCs are locked down anyway.
Has anyone found a workaround?
Thanks, Chris
I've been successfully using some code posted here by Alyda Gilmore
back in 2000 for connecting Excel to an already running instance of
Internet Explorer - thanks Alyda.
Set objSW = New SHDocVw.ShellWindows
If objSW.Count Then ' new
For Each objIE In objSW
If InStr(1, objIE.FullName, "IEXPLORE.EXE") Then
Set objIE = objSW.Item
fAppRunning = True
Exit For
Else
Set objIE = CreateObject("InternetExplorer.Application")
End If
Next objIE
Else ' new
Set objIE = CreateObject("InternetExplorer.Application") ' new
End If
However, now that my organisation has upgraded to XP with SP2, the call
to
New SHDocVw.ShellWindows
fails with an out-of-memory error. Hints elsewhere on the Internet
suggest that this is a change to improve security and might be overcome
by ticking "Allow service to interact with desktop". Not sure which
service or how to tick it and our XP PCs are locked down anyway.
Has anyone found a workaround?
Thanks, Chris