Find Objects on a Web Page and Save Values in Excel

'The following example retrieves the collection of WebEdit objects that 

contain credit card numbers 'and inserts them in an Excel file.

Dim NumberOfEdits

'Create a Description object to help retrieve all WebEdit objects in a specific page.
Set oDesc = Description.Create()

      'Retrieve all WebEdit objects from this page.
    oDesc("micclass").Value = "WebEdit"

Set EditCollection=Browser("Book a Flight: Mercury")_

                              .Page("Book a Flight: Mercury").ChildObjects(oDesc)

         NumberOfEdits = EditCollection.Count

'Use the GetROProperty to retrieve the "text" property (which in this case 

represents a credit card number) and insert all retrieved credit card numbers 

in an Excel file.

For i = 0 To NumberOfEdits - 1
     CurrentCreditNumber = EditCollection(i).GetROProperty("text")
     WriteToCreditCardNumberExcelFile (CurrentCreditNumber)
Next