update,

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

@@ -0,0 +1,47 @@
+Attribute VB_Name = "usage_table"
+Private Assert As New Selenium.Assert
+
+
+Private Sub Scrap_Table()
+  Dim driver As New ChromeDriver
+  driver.Get "http://stats.nba.com/league/player/#!/"
+  
+  driver.FindElementByCss("table.table") _
+        .AsTable _
+        .ToExcel Map:="(e) => e.firstChild.textContent.trim()"
+        
+  driver.Quit
+End Sub
+
+
+Private Sub Handle_Table()
+  Dim driver As New ChromeDriver
+  driver.Get "http://the-internet.herokuapp.com/tables"
+  
+  'Print all cells from the second column
+  Dim ele As WebElement
+  For Each ele In driver.FindElementsByCss("#table1 tbody tr td:nth-child(2)")
+      Debug.Print ele.Text
+  Next
+  
+  driver.Quit
+End Sub
+
+Private Sub Handle_Table2()
+  Dim driver As New ChromeDriver
+  driver.Get "http://the-internet.herokuapp.com/tables"
+  
+  Dim tbl As TableElement
+  Set tbl = driver.FindElementByCss("#table1").AsTable
+  
+  'Print all cells
+  Dim data(): data = tbl.data
+  For c = 1 To UBound(data, 1)
+    For r = 1 To UBound(data, 1)
+      Debug.Print data(r, 2)
+    Next
+    Debug.Print Empty
+  Next
+  
+  driver.Quit
+End Sub