IE not detected

Hi all,
Sorry to repost but my earlier post posted thru
excelforums did not appeared on this news group.

I am new here but would like to post one problem.
I have developed a application that uses IE for querrying
data from our intranet servers(majority code was picked up
from this NG and tweeked to my requirement)

I have noticed that the application always opens a new
instance of the IE. I tried all the solutions available on
this NG but no joy. If IE is open, I would like to use the
same for my application. Do I need any referance missing?

Code below gives me runtime error 429 "Activex componant
can't create object"

If I comment out the on error resume next statement, code
always create new instance of IE even if IE is already
running.
Please guide me.
Jagruti


Here is my code :
Sub detect_IE()
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
With mybrowser
..navigate "http://www.google.com"
End With

On Error GoTo 0

End Sub

Hi Jagruti

Copy this in a normal module

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Sub RunShellExecute(ByVal sFile As Variant)
Dim hWndDesk As Long
Dim success As Long
Const SE_ERR_NOASSOC = &H31
hWndDesk = GetDesktopWindow()
success = ShellExecute(hWndDesk, "Open", sFile, 0&, 0&, 3)
End Sub

Sub Run1()
RunShellExecute "http://www.google.com"
End Sub

Sub Run2()
RunShellExecute "http://www.msn.com"
End Sub

Sub Run3()
RunShellExecute "http://www.nu.nl"
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Jagruti" <[email protected]> wrote in message news:[email protected]...
> Hi all,
> Sorry to repost but my earlier post posted thru
> excelforums did not appeared on this news group.
>
> I am new here but would like to post one problem.
> I have developed a application that uses IE for querrying
> data from our intranet servers(majority code was picked up
> from this NG and tweeked to my requirement)
>
> I have noticed that the application always opens a new
> instance of the IE. I tried all the solutions available on
> this NG but no joy. If IE is open, I would like to use the
> same for my application. Do I need any referance missing?
>
> Code below gives me runtime error 429 "Activex componant
> can't create object"
>
> If I comment out the on error resume next statement, code
> always create new instance of IE even if IE is already
> running.
> Please guide me.
> Jagruti
>
>
> Here is my code :
> Sub detect_IE()
> 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
> With mybrowser
> .navigate "http://www.google.com"
> End With
>
> On Error GoTo 0
>
> End Sub
>