如何在Excel VBA中引用单元格路径跨服务器打开文件/文件夹？

核心逻辑 #

• 从References工作表的B6单元格读取目标路径/文件名
• 先验证路径有效性，避免运行时错误
• 针对不同操作（打开Excel文件、普通文件、文件夹）分别实现

具体代码实现 #

1. 打开Excel工作簿 #

Sub OpenExcelFileFromRef()
    Dim targetPath As String
    Dim wb As Workbook
    
    ' 读取References工作表B6的路径
    targetPath = ThisWorkbook.Worksheets("References").Range("B6").Value
    
    ' 验证路径是否为空且文件存在
    If targetPath = "" Then
        MsgBox "References工作表B6单元格未填写路径！", vbExclamation
        Exit Sub
    End If
    
    If Dir(targetPath) = "" Then
        MsgBox "指定路径不存在：" & targetPath, vbCritical
        Exit Sub
    End If
    
    ' 打开目标Excel文件
    On Error Resume Next
    Set wb = Workbooks.Open(targetPath)
    On Error GoTo 0
    
    If wb Is Nothing Then
        MsgBox "无法打开文件：" & targetPath, vbCritical
    End If
End Sub

2. 打开任意类型文件（调用系统默认程序） #

Sub OpenAnyFileFromRef()
    Dim targetPath As String
    
    targetPath = ThisWorkbook.Worksheets("References").Range("B6").Value
    
    If targetPath = "" Then
        MsgBox "References工作表B6单元格未填写路径！", vbExclamation
        Exit Sub
    End If
    
    If Dir(targetPath) = "" Then
        MsgBox "指定路径不存在：" & targetPath, vbCritical
        Exit Sub
    End If
    
    ' 使用ShellExecute调用系统默认程序打开文件
    Shell "rundll32.exe url.dll,FileProtocolHandler " & Chr(34) & targetPath & Chr(34), vbNormalFocus
End Sub

3. 打开文件夹（定位到资源管理器） #

Sub OpenFolderFromRef()
    Dim targetPath As String
    
    targetPath = ThisWorkbook.Worksheets("References").Range("B6").Value
    
    If targetPath = "" Then
        MsgBox "References工作表B6单元格未填写路径！", vbExclamation
        Exit Sub
    End If
    
    ' 验证文件夹是否存在
    If Dir(targetPath, vbDirectory) = "" Then
        MsgBox "指定文件夹不存在：" & targetPath, vbCritical
        Exit Sub
    End If
    
    ' 打开文件夹
    Shell "explorer.exe " & Chr(34) & targetPath & Chr(34), vbNormalFocus
End Sub

关键注意事项 #

• 确保References工作表名称拼写正确，VBA对工作表名称大小写敏感
• B6单元格需填写完整路径（如\\server01\schoolA\docs\report.xlsx或D:\data\files）
• 路径包含空格时无需额外处理，代码已用Chr(34)（双引号）包裹路径避免报错
• 建议在B6单元格旁添加文本提示，比如“请输入完整路径/文件名”

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