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.

"DM" wrote in message
...
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

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
On Error GoTo 0




DM wrote:

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.

--

Dave Peterson