VBA调用Workbook.Open打开网络路径工作簿出现1004错误的疑问

我之前也碰到过几乎一模一样的问题，咱们一步步拆解来解决：

为什么会触发1004错误？ #

你遇到的核心矛盾是从单元格读取的路径和硬编码的路径看起来一致，但实际存在细微差异，主要有这几个诱因：

1. 隐形字符干扰：单元格里的路径大概率藏着看不见的字符——比如非断空格（Chr(160)）、换行符（Chr(10)）或者首尾冗余空格，VBA读取后路径就变成了无效格式；而你硬编码时会手动输入干净的路径，所以不会出问题。
2. 映射盘符的会话限制：映射盘符（比如G:/）是和当前用户会话绑定的，宏运行的上下文可能没加载这个映射（比如用系统账户运行、或者映射在另一个远程会话里），但UNC路径（\\xxx.xxx...）直接指向网络资源，不受这个限制。
3. 单元格格式问题：如果单元格K4被设置成了超链接，直接读取.Value拿到的是显示文本而非实际链接地址；或者单元格的文本格式导致路径被截断、变形。

针对从单元格读取路径的解决方案 #

结合你的代码，给你几个可直接复用的处理方案：

1. 先清理路径中的隐形字符和冗余内容 #

在读取单元格值后，先做格式化处理，确保路径干净：

FilePlanung = Application.Clean(Trim(wsS.Range("K4").Value))
' 额外处理复制粘贴常带的非断空格
FilePlanung = Replace(FilePlanung, Chr(160), " ")

Trim()去掉首尾空格，Application.Clean()清除不可见的控制字符，Replace()替换非断空格为普通空格，能解决大部分隐形字符的问题。

2. 自动把映射盘符转换成UNC路径 #

如果单元格存的是映射盘符路径，用这个函数转换成UNC路径，规避会话限制：

Function GetUNCPath(mappedPath As String) As String
    Dim objNetwork As Object, objDrives As Object
    Set objNetwork = CreateObject("WScript.Network")
    Set objDrives = objNetwork.EnumNetworkDrives
    
    Dim i As Integer
    For i = 0 To objDrives.Count - 1 Step 2
        ' 匹配盘符（比如G:）
        If UCase(Left(mappedPath, 2)) = UCase(objDrives.Item(i)) Then
            GetUNCPath = Replace(mappedPath, objDrives.Item(i), objDrives.Item(i + 1), vbTextCompare)
            Exit Function
        End If
    Next i
    ' 没找到映射就返回原路径
    GetUNCPath = mappedPath
End Function

然后在你的代码里调用：

FilePlanung = GetUNCPath(Application.Clean(Trim(wsS.Range("K4").Value)))

3. 提前验证路径有效性 #

在打开文件前先检查路径是否存在，提前报错方便排查：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
FilePlanung = Application.Clean(Trim(wsS.Range("K4").Value))

If fso.FileExists(FilePlanung) Then
    Set wbP = Workbooks.Open(Filename:=FilePlanung)
Else
    MsgBox "路径无效或文件不存在：" & FilePlanung, vbCritical
    Exit Sub
End If

4. 处理超链接格式的单元格 #

如果K4是超链接，要读取实际的链接地址而非显示文本：

With wsS.Range("K4")
    If .Hyperlinks.Count > 0 Then
        FilePlanung = .Hyperlinks(1).Address
    Else
        FilePlanung = Application.Clean(Trim(.Value))
    End If
End With

把这些处理替换你代码里直接读取FilePlanung = wsS.Range("K4")的部分，应该就能解决问题了。

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