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

> 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