Sorry, my mistake in the function.

Set retVal = o

should be:

Set retVal = o.document

Tim

--
Tim Williams
Palo Alto, CA


"tmp2100 via OfficeKB.com" <u21084@uwe> wrote in message news:5f5d79c69b1d1@uwe...
> Tim:
> This appears to work. If I monitor the value of oDoc, the
> correct URL does show up. However, when the
> set oTable=oDoc.getElementById("abcTab")
> statement executes, a VB runtime error #438 occurs:
> "object doesnt support this property or method"
>
> Any suggestions on what's wrong?
>
>
> Tim Williams wrote:
> >If you know the URL of the spawned window (look at the source for the form you're submitting)
> >then you can use the function below.
> >It will return the document object for the first window it finds with an address "like" the passed URL.
> >It a window is not found it will return nothing.
> >
> >dim oDoc, oTable
> >
> >set oDoc=GetHTMLDocument("htt p://thisistheURL/responsedir/")
> >if not oDoc is nothing then
> >
> > set oTable=oDoc.getElementById("abcTab")
> >
> >end if
> >
> >Tim
> >
> >'#################################################
> >'Find an IE window with matching location and get the document from
> >' the loaded page. Assumes no frames.
> >Function GetHTMLDocument(sAddress As String) As Object
> >
> >Dim objShell As Object, objShellWindows As Object, o As Object
> >Dim retVal As Object, sURL As String
> >
> > Set retVal = Nothing
> > Set objShell = CreateObject("Shell.Application")
> > Set objShellWindows = objShell.Windows
> >
> > 'see if IE is already open
> > For Each o In objShellWindows
> > sURL = ""
> > On Error Resume Next
> > sURL = o.document.Location
> > On Error GoTo 0
> > If sURL <> "" Then
> > If sURL Like sAddress & "*" Then
> > Set retVal = o
> > Exit For
> > End If
> > End If
> > Next o
> >
> >Set GetHTMLDocument = retVal
> >End Function
> >
> >>I have the following VBA code to launch an IE application, navigate to a URL,
> >> and submit a form.
> >[quoted text clipped - 36 lines]
> >>
> >> endSub
>
> --
> tmp2100
>
> Message posted via http://www.officekb.com