Excel VBA：如何通过单元格路径正确引用源工作簿？

你的核心问题是直接把字符串路径赋值给Workbook对象，这不符合VBA语法规则。Workbook对象需要通过Workbooks.Open（打开未打开的文件）或者引用已打开的工作簿来创建，不能直接用字符串赋值。另外还要注意：右键复制的文件路径会自带双引号，必须先清理掉，否则会导致文件无法识别。

关键修正步骤 #

• 清理路径中的双引号：用户右键复制路径时，系统会自动给路径加上双引号，必须用Replace函数移除
• 检查文件是否已打开：避免重复打开文件，也防止同名文件导致的引用错误
• 正确创建Workbook对象：未打开的文件用Workbooks.Open，已打开的直接匹配引用
• 增加错误处理：防止文件不存在、工作表/命名范围找不到的情况

修正后的完整代码 #

Sub GetData()
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim rnSource As Range
    Dim wsTarget As Worksheet
    Dim filePath As String
    
    ' 获取C4单元格路径并清理双引号
    filePath = Replace(Range("C4").Text, """", "")
    
    ' 检查目标文件是否已打开
    Dim wb As Workbook
    Set wb = Nothing
    For Each wb In Workbooks
        If wb.FullName = filePath Then
            Set wbSource = wb
            Exit For
        End If
    Next wb
    
    ' 文件未打开则尝试打开
    If wbSource Is Nothing Then
        On Error Resume Next
        Set wbSource = Workbooks.Open(filePath)
        On Error GoTo 0
        
        ' 打开失败提示并退出
        If wbSource Is Nothing Then
            MsgBox "无法打开文件：" & filePath, vbExclamation
            Exit Sub
        End If
    End If
    
    ' 验证目标工作表是否存在
    On Error Resume Next
    Set wsSource = wbSource.Worksheets("Financial")
    If wsSource Is Nothing Then
        MsgBox "源工作簿中找不到「Financial」工作表", vbExclamation
        wbSource.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 验证命名范围是否存在
    Set rnSource = wsSource.Range("FinDescription")
    If rnSource Is Nothing Then
        MsgBox "「Financial」工作表中找不到「FinDescription」命名范围", vbExclamation
        wbSource.Close SaveChanges:=False
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 明确引用当前宏所在的工作簿（避免歧义）
    Set wsTarget = ThisWorkbook.Worksheets("Setup")
    
    ' --------------------------
    ' 这里写入你的数据处理逻辑
    ' 示例：将源范围数据复制到目标工作表A1单元格
    rnSource.Copy wsTarget.Range("A1")
    ' --------------------------
    
    ' 若文件是本次代码打开的，处理完可选择关闭（按需调整是否保存）
    ' wbSource.Close SaveChanges:=False
End Sub

额外说明 #

• 用ThisWorkbook代替Worksheets("Setup")：明确指向宏所在的工作簿，避免切换窗口后引用出错
• 错误处理模块：防止因文件损坏、路径错误等意外情况导致代码崩溃，提升稳定性

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