如何使用定义名称声明对象？VBA工作簿引用报错求助

核心错误原因 #

1. 重复打开已存在的工作簿：你的VBA代码嵌入在目标工作簿中，执行Workbooks.Open(Range("DestinationWB"))时，实际是尝试打开当前已打开的目标工作簿，这会触发Excel错误。
2. Range引用的歧义性：直接用Range("定义名称")时，Excel默认引用当前活动工作表的范围，若定义名称作用域为工作簿级，或当前活动工作表不是存放定义名称的表格所在表，就会出现引用错误。
3. 工作表名称引用逻辑错误：后续代码中错误地从其他工作簿的Range中取工作表名称，而定义名称实际存放在目标工作簿里。

修正后的代码 #

Sub ImportData()
    Dim WB_S As Workbook '源工作簿
    Dim WS_S As Worksheet '源工作表
    Dim WB_D As Workbook '目标工作簿
    Dim WS_D As Worksheet '目标工作表
    Dim sourcePath As String
    Dim destSheetName As String
    Dim sourceSheetName As String

    Application.DisplayAlerts = True

    ' 从目标工作簿的定义名称中获取路径和工作表名，明确引用工作簿级定义名称
    Set WB_D = ThisWorkbook '代码所在的工作簿就是目标工作簿，无需重新打开
    destSheetName = WB_D.Names("DestinationWS").RefersToRange.Value
    sourcePath = WB_D.Names("SourceWB").RefersToRange.Value
    sourceSheetName = WB_D.Names("SourceWS").RefersToRange.Value

    ' 打开源工作簿并指定工作表
    Set WB_S = Workbooks.Open(sourcePath)
    Set WS_S = WB_S.Sheets(sourceSheetName)
    ' 指定目标工作表（当前工作簿内）
    Set WS_D = WB_D.Sheets(destSheetName)

    ' 后续可添加数据导入逻辑，例如：
    ' WS_S.Range("A1:Z100").Copy WS_D.Range("A1")
End Sub

额外注意事项 #

• 定义名称的作用域：确保SourceWB、SourceWS、DestinationWB、DestinationWS这些定义名称的作用域是工作簿级，而非工作表级，这样才能跨工作表正确引用。
• 路径有效性：确认SourceWB对应单元格（A1）中是源工作簿的完整绝对路径（如C:\Data\SourceFile.xlsx），路径错误会导致打开工作簿失败。
• 工作表存在性：确认源工作簿中存在SourceWS指定名称的工作表，目标工作簿中存在DestinationWS指定名称的工作表，避免“工作表不存在”的错误。

内容的提问来源于stack exchange，提问作者Claire Melinda Dunphy