Excel VBA跨工作簿传递变量问题：读取任意路径源工作簿单元格值

看起来你卡在跨工作簿取数据这一步了，我之前也碰到过类似的情况，尤其是当目标工作簿可能在任意文件夹的时候，直接用工作簿名称引用确实容易掉坑。下面给你几个靠谱的解决方案，对应不同的场景：

场景1：你在源工作簿的代码里打开目标工作簿，想把数据传过去 #

这种情况最稳妥的方式是主动把数据传递给目标工作簿的宏，而不是让目标工作簿自己瞎找源工作簿。步骤如下：

1. 在源工作簿里写打开目标工作簿并传参的代码：

Sub OpenTargetAndSendData()
    ' 先把源工作簿的单元格数据存下来
    Dim srcData1 As Variant, srcData2 As Variant
    srcData1 = ThisWorkbook.Sheets("你的源工作表名").Range("A1").Value ' 替换成你的单元格
    srcData2 = ThisWorkbook.Sheets("你的源工作表名").Range("B1").Value
    
    ' 打开目标工作簿（如果需要让用户选择文件，用GetOpenFilename更灵活）
    Dim targetWB As Workbook
    Dim targetPath As String
    targetPath = "C:\你的目标工作簿路径\TargetWorkbook.xlsm" ' 替换成实际路径，或者用文件选择框
    Set targetWB = Workbooks.Open(targetPath)
    
    ' 调用目标工作簿里的接收宏，把数据传过去
    targetWB.Application.Run "ReceiveSourceData", srcData1, srcData2
End Sub

2. 在目标工作簿里写一个接收数据的宏：

Sub ReceiveSourceData(data1 As Variant, data2 As Variant)
    ' 这里随便你处理数据，比如写到目标工作表的单元格里
    ThisWorkbook.Sheets("你的目标工作表名").Range("C1").Value = data1
    ThisWorkbook.Sheets("你的目标工作表名").Range("D2").Value = data2
End Sub

这种方式的好处是不用依赖工作簿名称，直接通过宏调用传递数据，不管目标工作簿在哪个文件夹都能生效。

场景2：目标工作簿需要主动读取源工作簿的数据（不管源工作簿开没打开） #

如果是目标工作簿被其他文件调用时，要自己去拿源工作簿的数据，用GetObject比直接用Workbooks()引用靠谱多了，它能自动找到已打开的源工作簿，没打开的话会后台打开它：

Sub PullDataFromSource()
    Dim srcWB As Workbook
    Dim srcFullPath As String
    
    ' 替换成源工作簿的完整路径，如果不知道路径，可以加个文件选择框让用户选
    srcFullPath = "C:\你的源工作簿路径\SourceWorkbook.xlsx"
    
    ' 获取源工作簿对象
    Set srcWB = GetObject(srcFullPath)
    
    ' 读取你需要的两个变量
    Dim var1 As Variant, var2 As Variant
    var1 = srcWB.Sheets("源工作表名").Range("A1").Value
    var2 = srcWB.Sheets("源工作表名").Range("B1").Value
    
    ' 处理数据，比如存到目标工作簿里
    ThisWorkbook.Sheets("目标工作表名").Range("X1").Value = var1
    ThisWorkbook.Sheets("目标工作表名").Range("X2").Value = var2
    
    ' 如果源工作簿之前是关闭的，用完可以关掉它（可选，根据需求来）
    ' srcWB.Close SaveChanges:=False
End Sub

你之前用Workbooks("firstWorkbook.xls")失败的可能原因 #

• 扩展名不对：现在Excel默认是.xlsx或.xlsm，如果你的源工作簿是这个格式，只写.xls肯定找不到；
• 工作簿名称带空格或特殊字符：需要用引号括起来，比如Workbooks("First Workbook.xlsm")；
• 同名工作簿冲突：如果有多个同名工作簿打开，引用会混乱；
• 权限问题：源工作簿被锁定、只读，或者路径不对。

几个小提醒 #

• 确保两个工作簿都保存为启用宏的格式（.xlsm），不然宏会被禁用；
• 用ThisWorkbook代替具体的工作簿名称，它永远指的是代码所在的工作簿，不会出错；
• 如果要让用户自己选择文件，用Application.GetOpenFilename来获取路径，比硬编码路径灵活多了。

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