48 lines
1.1 KiB
QBasic
48 lines
1.1 KiB
QBasic
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
|