VBA中如何将指定工作簿的Range永久赋值给变量避免引用错误

VBA中用Set关键字赋值的Range对象属于引用类型，只要赋值时显式指定完整的父工作簿、父工作表路径，变量就会永久绑定对应区域，不会随后续激活其他工作簿发生变化。你遇到的问题根源是过度依赖ActiveWorkbook这类动态的活跃对象，以及部分Range没有限定父对象导致的取值偏差。

修正后代码 #

Option Explicit

Sub 固定Range绑定()
    Dim prior_inpath As String, prior_Infile As String, prior_indir As String
    Dim myLookupValue As Variant
    Dim prior_wb As Workbook ' 新增变量存储打开的CSV工作簿
    Dim curr_range As Range
    Dim prior_arr(1 To 4, 1 To 2) As Variant
    Dim r As Long, c As Long
    Dim myLookupResult As Variant
    
    ' 补全Range父对象，避免活动表变化导致取值错误
    prior_inpath = ThisWorkbook.Sheets("IRE_Calc").Range("PriorPath").Value
    prior_Infile = Dir(prior_inpath & "Alberta.csv")
    prior_indir = prior_inpath & prior_Infile

    myLookupValue = ThisWorkbook.Sheets("IRE_Calc").Range("ETF_Names").Value
    ' 打开文件时直接绑定到变量，完全不依赖ActiveWorkbook的动态状态
    Set prior_wb = Workbooks.Open(prior_indir)
    ' 显式指定完整路径赋值Range，永久绑定对应区域
    Set curr_range = prior_wb.Sheets(1).Range("F:L")

    ' 循环读取时补全父对象，避免默认使用活动表取值
    For r = 1 To 4
        For c = 1 To 2
            prior_arr(r, c) = prior_wb.Sheets(1).Range("l64").Offset(r - 1, c - 1).Value
        Next c
    Next r

    ' 切换回原工作簿不会影响curr_range的绑定关系
    ThisWorkbook.Sheets("IRE_Calc").Activate

    ' VLookup正常读取绑定的CSV区域数据
    myLookupResult = WorksheetFunction.VLookup(myLookupValue, curr_range, 6, False)
End Sub

修改关键点 #

• 新增显式工作簿变量存储打开的CSV文件：打开文件时直接绑定到指定变量，不受后续窗口激活操作影响
• 所有Range引用补全全路径：不管是curr_range赋值还是循环中读取单元格的操作，都补全「工作簿→工作表→单元格」的完整引用路径，避免默认使用活动工作表导致的取值错误
• 绑定后的curr_range引用完全固定：后续VLookup调用时，即使已经切换回ThisWorkbook，也会正常读取CSV文件中的对应区域，不会出现引用漂移的问题

验证方法 #

可以在Set curr_range语句后添加调试语句确认绑定关系，切换回ThisWorkbook后再次运行以下语句，输出结果不会发生变化：

Debug.Print "curr_range所属工作簿：" & curr_range.Parent.Parent.Name
Debug.Print "curr_range所属工作表：" & curr_range.Parent.Name

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