VBA调用Excel名称管理器中存储的路径字符串打开文件时出现1004错误的解决请求

我一眼就看出你这个1004错误的根源了——你直接把Name对象赋值给了MyPath变量，而不是提取它存储的纯路径字符串。

当你写MyPath = ThisWorkbook.Names("PathToEmployeeWithholding")时，MyPath拿到的其实是Name对象的默认属性（也就是.RefersTo的值），但这个值是带格式的：它会被包裹在等号和双引号里，比如="D:\redacted\Employee Withholding .xlsx"。而Workbooks.Open()需要的是干干净净的纯路径字符串，这种带公式格式的内容自然会让系统找不到文件，哪怕你用Debug.Print输出看起来是对的（其实输出的是带格式的完整内容，只是你没注意到首尾的符号）。

正确的解决步骤 #

你需要从Name对象中提取出纯路径文本，这里有两种可靠的实现方式：

方式1：用Mid函数直接截取（简洁高效）

Dim nameObj As Name
Set nameObj = ThisWorkbook.Names("PathToEmployeeWithholding")
' 从第2个字符开始截取，去掉开头的=，再去掉末尾的引号
MyPath = Mid(nameObj.RefersTo, 2, Len(nameObj.RefersTo) - 2)

方式2：用Replace函数清理格式

MyPath = ThisWorkbook.Names("PathToEmployeeWithholding").RefersTo
' 去掉开头的=和所有双引号
MyPath = Replace(Replace(MyPath, "=", ""), """", "")

修改后的完整UpdateEmployeewithholding子程序 #

把问题行替换成上面的提取逻辑，修改后的代码如下：

Sub UpdateEmployeewithholding()
    'This sub will clean employee withholding as it is exported from quickbooks and then read the file into this workbook
    'The path is already stored in the names manager
    'This routine needs to integrate changevalueofname and getpath. They should update before executing the balance of this routine
    Dim MyWorkBook As Workbook
    Dim MyPath As String ' 改成String类型更贴合路径的本质
    Dim MyRange As Range
    Dim whichrow As Variant
    Dim Direction As Variant
    Dim ArrayWidth As Range
    Dim ArrayHeight As Range
    Dim MyArray As Variant
    Dim Width As Long
    Dim Height As Long
    
    whichrow = 1
    Direction = "Rows"
    
    ' 核心修复：正确提取名称管理器中的纯路径
    Dim nameObj As Name
    Set nameObj = ThisWorkbook.Names("PathToEmployeeWithholding")
    MyPath = Mid(nameObj.RefersTo, 2, Len(nameObj.RefersTo) - 2)
    
    Debug.Print MyPath ' 现在输出的是和你手动粘贴完全一致的纯路径
    Set MyWorkBook = Workbooks.Open(MyPath) ' 这行再也不会报1004错误了
    Debug.Print ActiveWorkbook.Name
    
    ' 后续你的数据提取代码...
End Sub

额外优化建议：规范名称管理器的路径存储 #

为了避免后续再出现类似格式问题，建议你修改ChangeValueOfName子程序，让它把路径以标准的公式格式存入名称管理器：

Sub ChangeValueOfName(NameToChange As String, NewNameValue As String, Comment As String)
    ' ChangeValueOfNameMagagerName Macro
    ' Changes the Value of a defined name in the Name Manager
    With ActiveWorkbook.Names(NameToChange)
        .Name = NameToChange
        ' 给路径加上标准格式：="你的路径"，确保名称管理器存储的格式统一
        .RefersTo = "=""" & NewNameValue & """"
        .Comment = Comment
    End With
End Sub

这样做的好处是，名称管理器里的路径会被正确识别为文本，后续提取时的格式处理逻辑也更统一。

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