Excel VBA运行RecordCount报错'1004'：_Global对象Range方法失败

API 探路者

2026-10-5

报错核心成因

1. 命名范围取值异常：你定义的RecordCount命名范围对应单元格的值如果为空、0、非数字，或者数值小于2时，拼接出来的范围地址A2:Nxxx为无效地址，Excel无法识别就会抛出该错误。
1. 工作表上下文不匹配：代码中所有未指定所属工作表的Range调用默认指向当前激活的工作表，如果执行Range("RecordCount")或者Range("A2:N" & RecordCount)时，当前激活的不是qryTC2015ContainerUtilizationSh工作表，要么找不到命名范围，要么对应行范围不存在。
1. 命名范围创建失败：如果qryTC2015ContainerUtilizationSh工作表不存在、拼写错误，命名范围创建失败，后续调用Range("RecordCount")时无法找到对应范围，触发报错。
1. 目标工作簿/工作表不存在：如果要粘贴的TC Containers Shipped Report Template.xlsm工作簿未打开，或者Container Utilization工作表不存在，后续的Range调用也会触发相同报错。

修复方案

优化后的代码如下，去掉了容易引发上下文混乱的Select/Activate调用，增加了合法性校验：

Sub 修复后代码()
    Dim sourceSht As Worksheet
    Dim targetSht As Worksheet
    Dim RecordCount As Long
    
    ' 绑定源工作表，避免ActiveWorkbook的不确定性
    Set sourceSht = ThisWorkbook.Worksheets("qryTC2015ContainerUtilizationSh")
    
    ' 定义命名范围，明确所属工作簿和工作表
    ThisWorkbook.Names.Add Name:="RecordCount", _
                 RefersToR1C1:="=" & sourceSht.Name & "!R1C100"
    
    ' 直接给单元格赋值，不需要Select
    sourceSht.Range("CV1").FormulaR1C1 = "=COUNTA(C[-99])"
    
    ' 读取RecordCount值，增加异常捕获和合法性校验
    On Error Resume Next
    RecordCount = sourceSht.Range("RecordCount").Value
    On Error GoTo 0
    ' 校验值是否合法，小于2说明没有有效数据
    If RecordCount < 2 Then
        MsgBox "没有可复制的有效数据", vbExclamation
        Exit Sub
    End If
    
    ' 绑定目标工作表，确保目标工作簿已经提前打开
    Set targetSht = Workbooks("TC Containers Shipped Report Template.xlsm").Worksheets("Container Utilization")
    
    ' 直接复制粘贴，不需要选中对象
    sourceSht.Range("A2:N" & RecordCount).Copy
    targetSht.Range("A2").PasteSpecial Paste:=xlValues
    
    ' 清空剪贴板
    Application.CutCopyMode = False
End Sub

核心修改点：

1. 显式绑定源表和目标表对象，所有Range调用都明确指定所属工作表，完全避免工作表上下文不匹配的问题。
1. 增加RecordCount的异常捕获和合法性校验，避免无效地址拼接。
1. 移除了所有不必要的Select和Activate调用，这类操作不仅执行效率低，还非常容易导致上下文混乱引发报错。
1. 命名范围创建时明确关联当前工作簿，避免ActiveWorkbook指向错误的工作簿。

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