如何无需打开工作簿，通过路径读取其他工作簿数据（VBA实现）

以下是修改后的VBA函数，实现通过工作簿路径直接读取数据，无需手动打开文件：

Function SumA1FromWorkbook(wbPath As String, ByVal wsName As String, ByVal wsName2 As String) As Long
    Dim targetWB As Workbook
    Dim startIdx As Integer, endIdx As Integer
    Dim i As Integer
    Dim sumResult As Long
    
    On Error GoTo ErrorHandler
    
    ' 后台加载目标工作簿，不显示Excel界面
    Set targetWB = GetObject(wbPath)
    
    ' 获取指定工作表的索引
    startIdx = targetWB.Worksheets(wsName).Index
    endIdx = targetWB.Worksheets(wsName2).Index
    
    If startIdx <= endIdx Then
        sumResult = 0
        ' 遍历工作表范围，累加A1单元格的值
        For i = startIdx To endIdx
            sumResult = sumResult + targetWB.Worksheets(i).Range("A1").Value
        Next i
        SumA1FromWorkbook = sumResult
    Else
        MsgBox "起始工作表的索引不能大于结束工作表的索引！", vbExclamation
        SumA1FromWorkbook = 0
    End If
    
    ' 关闭后台工作簿，不保存避免修改原文件
    targetWB.Close SaveChanges:=False
    Set targetWB = Nothing
    Exit Function
    
ErrorHandler:
    MsgBox "错误信息：" & Err.Description, vbCritical
    SumA1FromWorkbook = 0
    ' 确保释放工作簿对象，防止内存泄漏
    If Not targetWB Is Nothing Then
        targetWB.Close SaveChanges:=False
        Set targetWB = Nothing
    End If
End Function

关键修改说明 #

• 参数适配：将第一个参数改为工作簿完整路径（例如"D:\Documents\DataBook.xlsx"），替代原有的已打开工作簿名称
• 后台加载机制：使用GetObject函数在后台加载工作簿，不会弹出Excel窗口，实现“无需打开”的需求
• 关键字修正：原代码中start、end是VBA保留关键字，改为startIdx、endIdx避免语法冲突
• 错误防护：增加错误捕获逻辑，处理路径无效、工作表不存在等异常场景，同时确保工作簿对象被正确释放，避免内存占用
• 安全处理：处理完成后关闭后台工作簿且不保存，防止意外修改原文件

使用示例 #

在Excel单元格中输入以下公式，即可计算指定路径工作簿内Sheet1到Sheet3所有工作表A1单元格的总和：

=SumA1FromWorkbook("D:\Documents\DataBook.xlsx", "Sheet1", "Sheet3")

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