Run-time error 429

[DM]

I have written a macro that makes use of internet
explorer. The following code works properly on my
system. However, when I attempt to run the exact same
code on a different computer, perhaps with a slightly
different version of office (though they are both office
2000) it fails. The error message is: "Run-time Error
429: ActiveX Component Can't Create Object."

The code is:

Sub import()

' import Macro

Dim mybrowser As SHDocVw.InternetExplorer
Set mybrowser = GetObject(, "InternetExplorer.Application")
.....

The failure occurs when the 'Set mybrowser...' line is
executed.

Any suggestions would be helpful.

 

[Keith Willshaw]

I have written a macro that makes use of internet
explorer. The following code works properly on my
system. However, when I attempt to run the exact same
code on a different computer, perhaps with a slightly
different version of office (though they are both office
2000) it fails. The error message is: "Run-time Error
429: ActiveX Component Can't Create Object."

The code is:

Sub import()

' import Macro

Dim mybrowser As SHDocVw.InternetExplorer
Set mybrowser = GetObject(, "InternetExplorer.Application")
....

Check the references on the target machine, either one is
missing , set wrongly or its a different browser version.

Keith

 

[Dave Peterson]

I think that 429 means that the the GetObject couldn't find a running instance
of MSIE.

So you check to see if it finds one. If it does, use it. If not, create a new
one.

Dim mybrowser As Object
On Error Resume Next
Set mybrowser = GetObject(, "InternetExplorer.Application")
If Err.Number = 429 Then
Set mybrowser = CreateObject("Internetexplorer.application")
mybrowser.Visible = True
Err.Clear
End If