web scraping on office 2021

[Tonmoymridha]

this code shows error 1004 on my office 2021 but its work fine on office 365 , can you help me out anyone?

Function TEN_RACE_CREATION1()

    Dim url As String
    Dim table As QueryTable
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Sheets("Meeting Results").Activate
    Sheets("Meeting Results").Columns("A:Q").Delete Shift:=xlToLeft
    Sheets("Meeting Results").Range("A1").Select
    url = "https://www.racingaustralia.horse/FreeFields/Results.aspx?Key=" & Sheets("Track_Tables").Range("G43").Value
    Set ws = Sheets("Meeting Results") ' Change the sheet reference as per your requirement
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    Set table = ws.QueryTables.Add("URL;" & url, ws.Cells(lastRow, "A"))
    
    With table
        .WebSelectionType = xlAllTables ' Collect data from all tables on the web page
        .WebFormatting = xlWebFormattingRTF
        .Refresh
    End With
    
End Function

 

[Domenic]

A couple of questions...

1. Which line is causing the error?
2. What value does G43 contain?

 

[Tonmoymridha]

.Refresh

here
this is the full website:

[TABLE] [TR] [TD]https://www.racingaustralia.horse/FreeFields/Results.aspx?Key=2023Apr26,QLD,Toowoomba[/TD] [/TR] [/TABLE]

 

[Domenic]

When I run your macro with the full url address that you provided, it runs successfully without any errors.

What's the exact value that G43 contains?

Do you still get an error if you replace...

url = "https://www.racingaustralia.horse/FreeFields/Results.aspx?Key=" & Sheets("Track_Tables").Range("G43").Value

with

url = "https://www.racingaustralia.horse/FreeFields/Results.aspx?Key=2023Apr26,QLD,Toowoomba"

?

 

[Tonmoymridha]

But when i run, it show me error 1004..