> > "piancu" <paul.r.ia...@gmail.com> wrote in message

> >news:e1f622dc-d889-407b-bcf7-12761ee94675@y10g2000prg.googlegroups.com...

> > > Hi everyone. I'm trying to use VB script to load a table from a HTML
> > > page to a text file. The problem is that the webpage has a EULA
> > > agreement prompt which i need to get past in order to download the
> > > table. I get an error message about button sometimes but at times the
> > > button is being clicked, although IE.document.body is non-existent and
> > > nothing gets written to the file.

> > > Do any of you know how I can click the button that appears but at the
> > > same time be able to access the document body of the page I get to.

> > > Thanks
> > > Paul

> > >    Dim strContents
> > >    Dim row
> > >    Dim Tables, Table
> > >    Dim IE, IE2, IE3
> > >    Dim TableData, Td, Tr, Trs
> > >    Dim Data, Data1
> > >    Set IE = CreateObject("InternetExplorer.Application")
> > >    IE.Visible = True
> > >    IE.Navigate ("https://www.noridianmedicare.com/p-medb/enroll/
> > > optout/oregon_optout.html")
> > >    Do While IE.Busy
> > >    Loop
> > >    wscript.sleep(100)

> > >    strContents = Space(1)
> > >    IE.document.getElementbyID("eula-accept").click()

> > >    Set Tables = IE.document.Body.getElementsbyTagName("table")

> > >    Set myFSO = CreateObject("Scripting.FileSystemObject")
> > >    Set WriteStuff = myFSO.OpenTextFile("\\db1\production\Files
> > > \MedicareOptoutProviderList\medicareoptout.txt", 2, True)

> > >    For Each Table In Tables
> > >        Set TableData = Tables.Item(0)
> > >        Set Trs = TableData.getElementsbyTagName("tr")
> > >        For Each Tr In Trs
> > >            Set Data = Tr.getElementsbyTagName("td")
> > >            For Each Td In Data
> > >                row = row & Td.innertext & vbTab
> > >            Next
> > >            row = Replace(row, vbCrLf, strContents)
> > >            WriteStuff.WriteLine(row)
> > >            row = ""
> > >        Next
> > >    Next
> > >    WriteStuff.Close
> > >    IE.Quit

> > If you open the three web pages below in the shown order then you should be
> > able to access your table:

> > 1.https://www.noridianmedicare.com/p-medb/enroll/optout/oregon_optout.html
> > 2.https://www.noridianmedicare.com/eula.php?t=%2Fp-medb%2Fenroll%2F&agr...
> > 3.https://www.noridianmedicare.com/p-medb/enroll/optout/oregon_optout.h... quoted text -

> > - Show quoted text -

> Thank You! The navigation works but the document body doesn't seem to
> have anything in it.

>     IE.Navigate ("https://www.noridianmedicare.com/p-medb/enroll/
> optout/oregon_optout.html")
>     Do While IE.Busy
>     Loop
>     IE.Navigate ("https://www.noridianmedicare.com/%2Fp-medb%2Fenroll
> %2F&agree=1")
>     Do While IE.Busy
>     Loop
>     IE.Navigate ("https://www.noridianmedicare.com/p-medb/enroll/
> optout/oregon_optout.html")
>     Do While IE.Busy
>     Loop
>     wscript.sleep(100)

>     strContents = Space(1)

>     Set Tables = IE.document.Body.getElementsbyTagName("table")- Hide quoted text -

> - Show quoted text -