import data from Web

[newnew005]

Dear ALL,

I follow your video, I want to import data from Web of this link https://racing.hkjc.com/racing/information/english/Racing/JockeysRides.aspx

When I run from web, in explore I read the link, document, does not have TABLE, but I can read table and data, on TABLE VIEW and DATA VIW, when I press LOAD or CHANGE, it load a table only, no data. Please teaching me what is my mistake and how to do? THX!

 

[newnew005]

Dear Worf, I don't know where to read the date. THX!

Tell me what is your Chrome version and the date of the Chrome driver executable file in the Selenium basic directory.

My info is 81.0.4044.129 and 15/3/20.

 

[Worf]

It is weird because you seem to have the correct driver. Anyway, let’s check the date.

Windows file explorer > right click > show > details.

 

[newnew005]

Yes, I read your link, I know chrome version and selenium version.

It is weird because you seem to have the correct driver. Anyway, let’s check the date.

Windows file explorer > right click > show > details.

 

[newnew005]

Dear Worf,

It is weird because you seem to have the correct driver. Anyway, let’s check the date.

Windows file explorer > right click > show > details.

 

[Worf]

chromedriver.exe

Replace your Chrome driver at the Selenium basic directory with this one, which I use with Chrome 81.0.4044.138

 

[newnew005]

Dear Worf,

This time I success to get data. Thank you very much!

What is meaning for this screen?

chromedriver.exe

Replace your Chrome driver at the Selenium basic directory with this one, which I use with Chrome 81.0.4044.138

 

[Worf]

That message box is a test to check if the code can find the table.
I will now write a version that actually transfers the table data to the worksheet, which I assume is what you want.

 

[newnew005]

thank you

 

[Worf]

This one transfers the table:

Public dr As New ChromeDriver

Sub HongKongFoo()
Dim pt As WebElement, i%, j%, k%
dr.get "https://racing.hkjc.com/racing/information/english/Racing/JockeysRides.aspx"
Set pt = dr.FindElementByXPath("/html/body/div[1]/div[3]/div/table")
For i = 1 To pt.FindElementsByTag("tr").Count                                   ' table rows
    j = 1
    For k = 1 To pt.FindElementsByTag("tr")(i).FindElementsByTag("td").Count    ' columns
        Cells(i, j) = pt.FindElementsByTag("tr")(i).FindElementsByTag("td")(k).Text
        j = j + 1
    Next
Next
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, [a1].CurrentRegion, , xlYes).Name = "Table2"
ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleMedium12"
End Sub

 

[newnew005]

Dear Worf,


press debugged



THX!



Sub HongKongFoo()
Dim pt As WebElement, i%, j%, k%
dr.get "https://racing.hkjc.com/racing/information/english/Racing/JockeysRides.aspx"
Set pt = dr.FindElementByXPath("/html/body/div[1]/div[3]/div/table")
For i = 1 To pt.FindElementsByTag("tr").Count ' table rows
j = 1
For k = 1 To pt.FindElementsByTag("tr")(i).FindElementsByTag("td").Count ' columns
Cells(i, j) = pt.FindElementsByTag("tr")(i).FindElementsByTag("td")(k).Text
j = j + 1
Next
Next
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, [a1].CurrentRegion, , xlYes).Name = "Table2"
ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleMedium12"
End Sub[/CODE]
[/QUOTE]