VBA中工作表引用变量的初始化时机与位置问题

核心错误原因排查 #

首先，运行时错误91最常见的诱因是对象变量赋值未使用Set关键字。你的代码wsItems = ActiveWorkbook.Worksheets("Items")中，wsItems属于工作表对象变量，必须通过Set完成赋值，正确写法为：

Set wsItems = ActiveWorkbook.Worksheets("Items")

若遗漏Set，即便工作表已正常加载，也会触发错误91。

初始化时机与优化方案 #

若已确认添加Set但问题仍存在，可针对工作表加载时机调整初始化逻辑：

1. 优先用ThisWorkbook替代ActiveWorkbook

ActiveWorkbook指向当前系统激活的工作簿，若打开过程中有其他工作簿被激活，会导致引用错位。改用ThisWorkbook（代表包含当前VBA代码的工作簿）能确保引用的准确性：

Set wsItems = ThisWorkbook.Worksheets("Items")

2. 调整初始化触发时机

方案A：延迟执行初始化

如果Workbook_Open触发时工作表尚未完全初始化，可通过Application.OnTime延迟1秒执行初始化，给系统足够时间完成工作表加载：
在Workbook_Open事件中写入：

Private Sub Workbook_Open()
    ' 延迟1秒调用Init初始化函数
    Application.OnTime Now + TimeValue("00:00:01"), "Init"
End Sub

方案B：使用Workbook_Activate事件（带初始化标记）

若仅在工作簿被激活时需要初始化，可将逻辑放在Workbook_Activate中，同时添加布尔变量避免重复执行：
模块中定义公共变量：

Public isInitialized As Boolean
Public wsItems As Worksheet
Public wsOther As Worksheet

Init函数修改为：

Sub Init()
    If isInitialized Then Exit Sub
    
    Set wsItems = ThisWorkbook.Worksheets("Items")
    Set wsOther = ThisWorkbook.Worksheets("Other")
    ' 此处写入列、行变量的初始化代码...
    
    isInitialized = True
End Sub

Workbook_Activate事件中调用：

Private Sub Workbook_Activate()
    Init
End Sub

方案C：绑定到工作表激活事件

如果仅在特定工作表被操作时才需要初始化，可将Init调用放在目标工作表的Worksheet_Activate事件中，同样配合初始化标记避免重复执行。

总结 #

1. 先检查是否遗漏Set关键字，这是错误91的高频触发点；
2. 用ThisWorkbook确保引用当前代码所在的工作簿，避免外部干扰；
3. 根据工作簿加载场景，选择延迟执行、激活事件等时机完成初始化。

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