Excel VBA导入网页数据时getElementsByTagName('tr')报错如何解决？

报错核心原因 #

绝大多数场景下是hTable对象被赋值为Nothing，后续调用getElementsByTagName方法直接触发运行时错误，导致该问题的诱因有两个：

• CSS选择器语法错误：你当前使用的querySelector参数"new-table modal-second-col responsive-enabled"不符合规范
  1. 类名选择器需要添加.前缀，否则会被识别为标签名选择器
  2. 同时匹配多个类名需要直接拼接，中间不能加空格，空格会被识别为后代选择逻辑，变成匹配嵌套在new-table标签下的modal-second-col标签，完全无法匹配到目标表格
• 网页动态加载问题：该网站的表格数据由JavaScript动态渲染生成，如果你使用XMLHTTP直接请求静态HTML，返回的源码中没有渲染完成的表格DOM，就算选择器语法正确也无法获取到目标对象

可行解决办法 #

1. 修正CSS选择器 #

将querySelector的参数修改为正确的类组合选择器：

Set hTable = html.querySelector(".new-table.modal-second-col.responsive-enabled")

2. 添加对象非空校验 #

在获取hTable后添加校验逻辑，避免空对象调用方法报错：

If hTable Is Nothing Then
    MsgBox "未找到目标表格，请检查HTML加载逻辑或页面结构是否变更"
    Exit Sub
End If

3. 改用支持动态渲染的HTML获取方式 #

如果你之前使用的是XMLHTTP静态请求，建议改用IE控件加载页面，等待JS渲染完成后再抓取数据，参考前置代码：

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False ' 可设置为True调试查看页面加载状态
IE.navigate "https://www.footballoutsiders.com/stats/nfl/snap-counts?year=2020&team=ALL&week=1&position=ALL"
' 等待页面基础加载完成
Do While IE.Busy Or IE.readyState <> 4
    DoEvents
Loop
' 额外等待2秒保证JS渲染完表格数据
Application.Wait Now + TimeValue("00:00:02")
Dim html As Object
Set html = IE.document
' 后续接修正后的选择器、校验逻辑和原有遍历代码

其他注意事项 #

• 全程使用后期绑定可以避免提前添加引用的麻烦，兼容性更强
• 如果IE方案失效，可改用Selenium Basic驱动Chrome/Edge浏览器抓取，适配更多反爬和动态加载场景

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