如何从MSHTML.IHTMLElementCollection中精准选取第16个表格？

你提到的循环计数方法虽然能实现目标，但确实可以通过直接索引访问来优化效率——毕竟没必要遍历前15个表格来定位目标。下面是具体的解决方案：

核心优化点：利用集合的索引访问 #

MSHTML.IHTMLElementCollection支持通过索引直接获取元素，不过需要注意它的索引是从0开始计数的。也就是说，你要找的第16个表格，对应的索引是15（因为第1个表格索引是0，第2个是1，以此类推）。

直接获取目标表格的优化代码 #

' 先判断表格数量是否足够，避免下标越界错误
If HTMLTables.Length >= 16 Then
    Dim targetTable As MSHTML.IHTMLElement
    Set targetTable = HTMLTables.Item(15) ' 0-based索引定位第16个表格
    
    ' 接下来执行表格导入逻辑（直接使用targetTable即可）
    Dim worksheetexists As Boolean
    worksheetexists = False
    Dim x As Integer
    For x = 1 To worksh
        If Worksheets(x).Name = MachineSerials Then
            Worksheets(MachineSerials).Activate
            worksheetexists = True
            Exit For
        End If
    Next x
    
    If Not worksheetexists Then
        Dim ws As Worksheet
        Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
        ws.Name = MachineSerials
        ws.Range("A1") = "Last Updated : "
    End If
    
    ' 更新时间戳
    Range("B1").Value = Now
    
    Dim RowNum As Integer, ColNum As Integer
    RowNum = 2
    Dim change As Integer
    change = 0
    
    ' 导入表格内容
    Dim HTMLRow As MSHTML.IHTMLElement
    For Each HTMLRow In targetTable.getElementsByTagName("tr")
        ColNum = 1
        Dim HTMLCell As MSHTML.IHTMLElement
        For Each HTMLCell In HTMLRow.Children
            ' 对比内容是否一致
            If StrComp(HTMLCell.innerText, Cells(RowNum, ColNum)) = 0 Or _
               Format(HTMLCell.innerText, "yyyy/mm/dd") = Format(Cells(RowNum, ColNum), "yyyy/mm/dd") Then
                ColNum = ColNum + 1
            Else
                Cells(RowNum, ColNum) = HTMLCell.innerText
                ColNum = ColNum + 1
                change = 1
            End If
        Next HTMLCell
        RowNum = RowNum + 1
    Next HTMLRow
Else
    ' 处理表格数量不足的情况
    MsgBox "页面中仅包含 " & HTMLTables.Length & " 个表格，无法找到第16个表格！"
End If

为什么这样更高效？ #

• 原来的循环需要逐个遍历前15个表格，直到计数器达到16才开始处理；直接索引访问可以跳过所有无效遍历，直接定位目标元素，尤其当页面表格数量较多时，效率提升会很明显。
• 增加了HTMLTables.Length >=16的判断，避免出现下标越界的运行时错误，让代码更健壮。

注意事项 #

• 确保HTMLTables变量已经正确声明为MSHTML.IHTMLElementCollection类型（比如通过document.getElementsByTagName("table")获取），这样才能正常使用Length属性和Item方法。
• MSHTML标准的IHTMLElementCollection都是0-based索引，所以优先用Item(15)定位第16个表格；如果你的环境存在特殊情况，再尝试调整为Item(16)。

内容的提问来源于stack exchange，提问作者Lee Forget