求助：如何将ActiveWorkbook与ActiveSheet赋值给变量？

别难为情！这种看似基础的问题卡壳太正常了——我当初刚摸VBA的时候，也在对象变量赋值上绕了好半天😅。你核心的问题大概率是对象变量赋值时忘了用Set关键字，这是新手最容易踩的坑之一。

直接上解决方案，一步步来：

1. 正确赋值ActiveWorkbook和ActiveSheet到变量 #

在VBA里，工作簿、工作表这类对象变量的赋值必须用Set关键字（普通数据类型比如字符串、数字不用），代码示例如下：

' 先声明变量类型
Dim wbActive As Workbook
Dim wsActive As Worksheet

' 把当前活动工作簿赋值给变量
Set wbActive = ActiveWorkbook
' 把当前活动工作表赋值给变量
Set wsActive = ActiveSheet

2. 怎么使用这些变量？ #

赋值完成后，你就可以直接通过变量来操作，完全替代隐式引用，比如：

' 示例1：在活动工作表的A1单元格写入内容
wsActive.Range("A1").Value = "这是来自活动工作表的内容"

' 示例2：获取活动工作簿的名称（虽然名称不固定，但可以随时查看）
MsgBox "当前活动工作簿的名称是：" & wbActive.Name

' 示例3：和你那两个固定名称的工作簿配合操作
Dim wbFixed1 As Workbook
Dim wbFixed2 As Workbook

' 引用固定名称的工作簿（注意要确保这些文件已经打开）
Set wbFixed1 = Workbooks("固定工作簿1.xlsx")
Set wbFixed2 = Workbooks("固定工作簿2.xlsm")

' 比如从活动工作簿复制数据到固定工作簿
wbActive.Sheets("数据源").Range("A1:C20").Copy _
    Destination:=wbFixed1.Sheets("汇总表").Range("A1")

几个关键注意点 #

• Set关键字不能少：这是很多人卡壳的核心原因！如果漏了Set，VBA会报错，因为它无法识别你要赋值的是对象而非普通变量。
• 避免活动状态变化：如果宏运行时间较长，担心用户不小心点击其他工作簿导致ActiveWorkbook变化，建议在宏的最开头就把活动对象赋值给变量，之后全程用变量操作，不要依赖ActiveWorkbook/ActiveSheet的实时状态。
• 区分ActiveWorkbook和ThisWorkbook：如果你的宏是写在某个固定工作簿里的，ThisWorkbook指的是包含宏的那个文件，而ActiveWorkbook是当前用户选中的工作簿——你的场景是活动工作簿名称不固定，所以一定要用ActiveWorkbook。

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