VBA获取源工作表wsSrc时提示下标越界错误排查

你碰到的Subscript out of range下标越界错误，以及你担心的工作簿跳转时变量指向变动的问题，核心缺陷就在当前的wsSrc属性实现上：

• 这个属性每次被调用时，都会动态从当前处于激活状态的工作簿（ActiveWorkbook）中查找名为"Sheet1"的工作表，自始至终没有固定绑定你最初指定的源工作簿。
• 只要你在源、目标工作簿之间切换后调用该属性，代码就会到新激活的工作簿里查找目标工作表：如果新工作簿中不存在名为"Sheet1"的工作表，会直接抛出下标越界错误；就算新工作簿里恰好有同名表，返回的也不是你需要的源工作表，完全符合你担心的指向漂移问题。

不要依赖ActiveWorkbook做动态取值，在模块层级固定存储源工作表的引用，初始化一次后全程复用，避免随激活窗口变动：

1. 在模块顶部声明私有模块级变量，用于持久存储源工作表引用
2. 新增初始化逻辑，在你首次确认源工作簿的节点（比如宏启动、用户选定源文件时），就将源表引用赋值给该模块级变量，后续不再修改
3. 改造wsSrc属性，直接返回已经存储的固定引用，不再每次从激活工作簿中动态查找

修复后的参考代码：

' 模块顶部声明，仅在模块初始化时分配一次引用
Private m_wsSrc As Worksheet

' 源表初始化方法，在确定源工作簿的时机调用，传入源工作簿对象即可
Public Sub BindSourceSheet(targetSourceBook As Workbook)
    ' 固定绑定传入工作簿内的Sheet1，后续不会随工作簿激活状态变化
    Set m_wsSrc = targetSourceBook.Worksheets("Sheet1")
End Sub

' 改造后的wsSrc属性，返回固定绑定的引用
Property Get wsSrc() As Worksheet
    ' 增加未初始化校验，避免无引用时调用报错
    If m_wsSrc Is Nothing Then
        Err.Raise vbObjectError + 1001, , "源工作表未绑定，请先调用BindSourceSheet方法传入源工作簿"
    End If
    Set wsSrc = m_wsSrc
End Property

如果完成上述改造后仍触发下标越界，优先检查两个高频问题：

• 工作表名称不匹配：Worksheets("Sheet1")是按Excel界面底部的工作表标签名匹配的，不是VBA工程面板里的工作表代码名，如果标签被重命名过，需要传入实际的标签名称。
• 源工作簿被释放：如果绑定引用后源工作簿被手动关闭、或被其他代码关闭，对应的工作表引用会失效，调用时同样会触发错误。

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