getElementById run-time 13 type mismatch error

try another quicker approach with..

Option Explicit

Sub Web_Table_Option_One()
Dim xml    As Object
Dim html   As Object
Dim objTable As Object
Dim result As String
Dim lRow As Long
Dim lngTable As Long
Dim lngRow As Long
Dim lngCol As Long
Dim ActRw As Long
Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
With xml
.Open "GET", "http://www.racingandsports.com.au/en/form-guide/", False
.send
End With
result = xml.responseText
Set html = CreateObject("htmlfile")
html.body.innerHTML = result
Set objTable = html.getElementsByTagName("table")
 For lngTable = 0 To objTable.Length - 1
        For lngRow = 0 To objTable(lngTable).Rows.Length - 1
            For lngCol = 0 To objTable(lngTable).Rows(lngRow).Cells.Length - 1
                ThisWorkbook.Sheets("Sheet1").Cells(ActRw + lngRow + 1, lngCol + 1) = objTable(lngTable).Rows(lngRow).Cells(lngCol).innerText
            Next lngCol
        Next lngRow
        ActRw = ActRw + objTable(lngTable).Rows.Length + 1
    Next lngTable
End Sub

Hello killerkoz17,

When automating Internet Explorer, the application code runs asynchronously from the VBA code being executed. This is why you see delay loops included in the VBA code.

To get Internet Explorer to sync up with VBA, you have to test key objects and events. The code below will do that correctly now.

Sub getElementByIdIssue()

    Dim Doc As Object
    Dim CountryHTML As String
    Dim IE As InternetExplorer

        Set IE = New InternetExplorer

            IE.Visible = False
            IE.Navigate ("http://www.racingandsports.com.au/en/form-guide/")

          ' Wait for the Web page to finish loading and Excel to stop processing.
            While IE.Busy And IE.ReadyState <> 4: DoEvents: Wend

          ' Wait for the document to be converted from HTML to HTML code.
            While Doc Is Nothing: Set Doc = IE.document: Wend
 
          ' Yield to IE to finish handling it's events.
            DoEvents
            CountryHTML = Doc.getElementById("accordion36").innerHTML

        Range("A1") = CountryHTML 'added this line here just to test it's working

        IE.Quit

'...(pull out various bits of data in the full code)

End Sub

Killer
change false to

 IE.Visible = True

or add a little time delay

    IE.Visible = False
              IE.Navigate ("http://www.racingandsports.com.au/en/form-guide/")
              Application.Wait (Now + TimeValue("0:00:03"))

try winding the timer us a little to

 Application.Wait (Now + TimeValue("0:00:15"))