如何用VBA无需打开工作簿跨路径引用单元格值？

要实现不打开目标工作簿，直接读取其单元格值并赋值到当前工作表，最适合批量处理的方法是使用Excel内置的ExecuteExcel4Macro函数，以下是具体实现步骤和代码：

核心代码示例 #

假设你有一个包含500个目标文件路径的列表（比如存放在当前工作表的B列，从B1到B500），可以用以下循环批量处理：

Sub GetValueFromClosedWorkbook()
    Dim targetPath As String
    Dim ws As Worksheet
    Dim i As Integer
    
    Set ws = ThisWorkbook.ActiveSheet ' 指定当前工作表，可根据实际修改
    
    ' 循环处理500个目标文件（这里假设路径存在B1:B500）
    For i = 1 To 500
        targetPath = ws.Range("B" & i).Value
        ' 跳过空路径
        If targetPath = "" Then GoTo NextFile
        
        ' 构建ExecuteExcel4Macro需要的参数格式：[文件路径]工作表名!单元格地址
        ' 注意：如果工作表名包含空格或特殊字符，需要用单引号包裹，比如'Sheet 1'!A1
        On Error Resume Next ' 捕获文件不存在或其他错误
        ws.Range("A" & i).Value = ExecuteExcel4Macro("'" & targetPath & "'!A1")
        On Error GoTo 0
        
NextFile:
    Next i
End Sub

关键细节说明 #

• ExecuteExcel4Macro的参数格式必须严格遵循：'[完整文件路径]'!单元格地址，如果目标工作表名称包含空格，需要额外用单引号包裹工作表名，例如'C:\Files\Book1.xlsx'!'Sales Data'!A1
• 加入错误处理（On Error Resume Next）是为了避免单个文件出错导致整个循环中断，比如文件不存在、路径错误等情况
• 如果需要读取的是其他单元格，只需要把代码中的A1替换成目标单元格地址即可

注意事项 #

• 该方法仅能读取单元格的计算结果值，无法读取公式本身
• 如果目标工作簿设置了打开密码或工作表保护，此方法无法读取内容
• 确保目标文件路径是完整的绝对路径（比如C:\Data\TargetFile.xlsx），相对路径可能会导致读取失败

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