如何用Excel VBA实现打开指定工作簿并将AJ列求和结果写入原工作簿C29？

需求说明 #

打开原工作簿单元格G11指定路径的外部工作簿，对该工作簿的AJ列求和，将结果写入原工作簿的C29单元格。

现有代码问题 #

你当前的代码存在几个关键问题，会导致逻辑错误或运行异常：

• 依赖Activate切换工作簿，Workbooks(1)不一定是原工作簿（如果原工作簿不是第一个打开的）
• 未限定Range的所属工作簿/工作表，默认指向当前激活的工作表，会导致求和或写入的目标错误
• 变量未声明，容易引发类型错误
• 无错误处理，文件路径无效时会直接崩溃

修正后的代码 #

Sub vba_open_workbook()
    Dim sourceWB As Workbook
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim sumResult As Double
    Dim filePath As String
    
    ' 锁定原工作簿和工作表对象，避免依赖激活状态
    Set targetWB = ThisWorkbook
    ' 替换为你原工作簿的目标工作表名称，比如"Sheet1"
    Set targetWS = targetWB.Sheets("Sheet1")
    
    ' 获取G11中的文件路径
    filePath = targetWS.Range("G11").Value
    
    ' 错误处理：尝试打开外部工作簿
    On Error Resume Next
    Set sourceWB = Workbooks.Open(filePath)
    On Error GoTo 0
    
    ' 检查文件是否成功打开
    If sourceWB Is Nothing Then
        MsgBox "文件不存在或无法打开，请检查G11中的路径！"
        Exit Sub
    End If
    
    ' 对外部工作簿的第一个工作表AJ列求和（如需指定特定工作表，替换Sheets(1)为工作表名称）
    sumResult = Application.WorksheetFunction.Sum(sourceWB.Sheets(1).Range("AJ:AJ"))
    
    ' 将结果写入原工作簿的C29单元格
    targetWS.Range("C29").Value = sumResult
    
    ' 关闭外部工作簿（不需要保留打开则启用，需要保留则注释）
    sourceWB.Close SaveChanges:=False
    
    ' 释放对象变量
    Set sourceWB = Nothing
    Set targetWS = Nothing
    Set targetWB = Nothing
End Sub

关键改进点 #

• 使用对象引用（targetWB/sourceWB）代替Activate，彻底避免激活上下文导致的错误
• 明确限定所有Range的所属工作表/工作簿，确保求和和写入的目标正确
• 添加错误处理，友好提示文件无法打开的情况
• 声明所有变量，遵循VBA最佳实践
• 可选关闭外部工作簿，保持工作环境整洁

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