我最近才注意到VBA工作得很好，这是IE浏览器的代码1。但是当试图运行更快的代码2时，它会不断出现错误对象或块未设置。任何帮助或正确的方向指针将不胜感激，谢谢.
这是两个密码。
代码1

Option Explicit

Public Sub GetTableB()

    Worksheets("Sheet1").Range("A1:O1500").Clear

    Dim ig As Object
    Dim urlc As String
    urlc = "https://www.totalcorner.com/match/today"

    Set ig = CreateObject("InternetExplorer.Application")
    ig.Visible = True
    ig.navigate urlc
    Do While ig.busy: DoEvents: Loop
    Do Until ig.readyState = 4: DoEvents: Loop

    Dim tb As HTMLTable

    Set tb = ig.document.getElementById("content_container")
    'Set tb = ig.document.getElementsByClassName("main_content")

    Dim rowcounter As Integer
    Dim columncounter As Integer
    rowcounter = 4
    columncounter = 2
    Dim tro As HTMLTableRow
    Dim tdc As HTMLTableCell
    Dim thu

    Dim mys As Worksheet
    Set mys = ThisWorkbook.Sheets("Sheet1")
    For Each tro In tb.getElementsByTagName("tr")
   'loop thru table header
    For Each thu In tro.getElementsByTagName("th")
    mys.Cells(rowcounter, columncounter).Value = thu.textContent
    columncounter = columncounter + 1
    Next thu

    'loop thru table cells
    For Each tdc In tro.getElementsByTagName("td")
    mys.Cells(rowcounter, columncounter).Value = tdc.textContent
    columncounter = columncounter + 1
    Next tdc
    columncounter = 1
    rowcounter = rowcounter + 1
    Next tro

    ig.Quit

End Sub

代码2

Option Explicit
Public Sub GetTableNB()

    Worksheets("Sheet1").Range("A1:O1500").Clear

    Dim html As MSHTML.HTMLDocument, hTable As Object, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set html = New MSHTML.HTMLDocument         '<  VBE > Tools > References > Microsoft Scripting  Runtime
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "https://www.totalcorner.com/match/today", False
        .send
        html.body.innerHTML = .responseText
    End With
    Set hTable = html.getElementById("content_container")
    Dim td As Object, tr As Object, th As Object, r As Long, c As Long
    For Each tr In hTable.getElementsByTagName("tr")
        r = r + 1: c = 1
        For Each th In tr.getElementsByTagName("th")
            ws.Cells(r, c) = th.innerText
        Next
        For Each td In tr.getElementsByTagName("td")
            ws.Cells(r, c) = td.innerText
            c = c + 1
        
       
       Debug.Print hTable.innerText
            
            
        Next
    Next
End Sub

我最近注意到，如果你先运行代码1，这是IE浏览器的代码，然后运行代码2后，它然后工作与出错误，仍在试图弄清楚它。