'

' VBScript example

' Lists all the links in a web page to an Excel sheet

'

Class Script

Dim driver

Sub Class_Initialize

' Launch the browser and open an URL

Set driver = CreateObject("Selenium.FirefoxDriver")

driver.Get "https://en.wikipedia.org/wiki/Main_Page"

' List all links, remove duplicates and sort them

Set links = driver.FindElementsByCss("a").Attribute("href")

links.Distinct

links.Sort

' Launch Excel and create a Workbook

Set excel = CreateObject("Excel.Application")

excel.WorkBooks.Add ' Add a new workbook

excel.Visible = 1 ' Let Excel show itself

' Write the links in Excel and quit

links.ToExcel excel.ActiveSheet, "Links"

End Sub

Sub Class_Terminate

driver.Quit 'Stop the browser

End Sub

End Class

Set s = New Script