VBA中.Refresh BackgroundQuery:=False行随机出现1004错误求解决

针对你遇到的.Refresh BackgroundQuery:=False行随机触发1004错误的问题，以下是几个实用的排查和解决方向：

1. 清理重复的QueryTable实例 #

每次运行代码时，工作表可能残留之前创建的QueryTable，重复实例会导致冲突。在清除单元格内容前，先删除所有已存在的QueryTable：

Sub Titans()
    Dim ws As Worksheet
    Dim qt As QueryTable
    
    Set ws = Sheets("Titans")
    ws.Select
    
    ' 先删除已有QueryTable，避免实例冲突
    For Each qt In ws.QueryTables
        qt.Delete
    Next qt
    
    ws.Cells.Clear
    
    ' 重新创建QueryTable
    With ws.QueryTables.Add(Connection:= _
        "URL;https://www.pro-football-reference.com/teams/oti/2022.htm#team_stats", Destination:= _
        ws.Range("A1"))
        .PostText = "local"
        .Name = "TitansStats" ' 明确命名，避免默认名称重复
        .FieldNames = False
        .RefreshStyle = xlInsertDeleteCells
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .HasAutoFormat = True
        .RefreshOnFileOpen = False ' 关闭自动刷新，避免干扰手动执行
        .BackgroundQuery = False
        .TablesOnlyFromHTML = True
        .SaveData = True
        .Refresh ' 已设置BackgroundQuery为False，无需重复传参
    End With
End Sub

2. 规避网站反爬机制 #

频繁请求被网站拦截是随机1004错误的常见诱因，可通过以下方式优化：

• 在创建QueryTable前添加延迟，降低请求频率：

  Application.Wait Now + TimeValue("00:00:03") ' 等待3秒再发起请求
  

• 全程使用工作表对象引用，避免依赖ActiveSheet和.Select，减少Excel状态异常概率。

3. 改用XMLHTTP+HTML解析（更稳定的替代方案） #

QueryTable依赖Excel对网页的内置解析，对网页结构变化和反爬规则更敏感。改用XMLHTTP直接获取网页内容，再用HTMLDocument提取数据，可控性更强：

Sub Titans_Alternative()
    Dim ws As Worksheet
    Dim xmlHttp As Object
    Dim htmlDoc As Object
    Dim table As Object
    Dim row As Object
    Dim cell As Object
    Dim r As Long, c As Long
    
    Set ws = Sheets("Titans")
    ws.Cells.Clear
    
    ' 创建XMLHTTP对象模拟浏览器请求
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", "https://www.pro-football-reference.com/teams/oti/2022.htm#team_stats", False
    xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36"
    xmlHttp.send
    
    ' 解析返回的HTML内容
    Set htmlDoc = CreateObject("HTMLFile")
    htmlDoc.body.innerHTML = xmlHttp.responseText
    
    ' 定位目标表格（根据网页实际结构调整ID）
    Set table = htmlDoc.getElementById("team_stats")
    
    ' 遍历表格内容写入Excel
    r = 1
    For Each row In table.Rows
        c = 1
        For Each cell In row.Cells
            ws.Cells(r, c).Value = cell.innerText
            c = c + 1
        Next cell
        r = r + 1
    Next row
End Sub

4. 重置Excel环境 #

如果上述方法无效，尝试以下操作：

• 关闭并重启Excel，清除临时缓存
• 检查Excel信任中心设置，确保允许外部数据连接
• 修复Office安装文件，排除程序本身的异常

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