update,

task1/task1-ticket1/_ref/Excel/Examples/usage_excel.bas

@@ -0,0 +1,75 @@
+Attribute VB_Name = "usage_excel"
+' This module contains examples to read and write
+' data from and to an excel sheet.
+'
+
+Private Table As New Selenium.Table
+Private Assert As New Selenium.Assert
+Private Verify As New Selenium.Verify
+Private Keys As New Selenium.Keys
+
+
+Private Sub Use_Cell_text()
+  Dim driver As New ChromeDriver
+  driver.Get "https://en.wikipedia.org/wiki/Main_Page"
+  
+  'get the input box
+  Dim ele As WebElement
+  Set ele = driver.FindElementById("searchInput")
+  
+  'Search the text from the cell A3
+  ele.SendKeys [b3]
+  ele.Submit
+  
+  driver.Quit
+End Sub
+
+Public Sub VerifyTitles()
+  Dim driver As New ChromeDriver
+
+  driver.setBinary "C:\tools\chrome-win\chrome.exe"
+  
+  Dim row
+  For Each row In Table.From([Sheet1!A3]).Where("Id > 0")
+      'open the page with the link in column "Link"
+      driver.Get row("Link")
+      
+      'Verify the title and set the result in column "Result"
+      row("Result") = Verify.Equals(row("ExpectedTitle"), driver.title)
+  Next
+  
+  driver.Quit
+End Sub
+
+
+Public Sub ListLinks()
+  Dim driver As New ChromeDriver
+  
+  'open the page with the URL in cell A2
+  driver.Get [Sheet2!A4]
+  
+  'get all the href attributes
+  Dim links As List
+  Set links = driver.FindElementsByTag("a").Attribute("href")
+  links.Distinct
+  links.Sort
+  
+  'writes the href values in cell A7
+  links.ToExcel [Sheet2!A7]
+  
+  driver.Quit
+End Sub
+
+
+Public Sub TakeScreenShoot()
+  Dim driver As New ChromeDriver
+  
+  'open the page with the URL in cell A4
+  driver.Get [Sheet3!A4]
+  
+  'Take the screenshoot in cell A7
+  driver.TakeScreenshot().ToExcel [Sheet3!A7]
+  
+  driver.Quit
+End Sub
+