Excel工作簿连接字符串：能否将绝对路径替换为相对路径？

当然可以把Excel工作簿的ODBC连接改成相对路径！不过得先纠正你提到的一个小误区：Windows系统里的相对路径用..表示上一级目录，没有...这种写法。下面我会针对你的文件结构给出具体的修改方案和操作步骤：

你的文件结构回顾 #

• Project.xlsm 位置：N:\Files\ProjectName\Clients\Alpha\
• Data1.xlsm 位置：和Project.xlsm同一目录（Alpha）
• Data2.xlsm 位置：相邻目录Beta（N:\Files\ProjectName\Clients\Beta\）

正确的相对路径连接字符串 #

1. 连接同一目录的Data1.xlsm #

你不需要用..\Alpha，因为Project.xlsm已经在Alpha目录里了，直接写文件名或者用.代表当前目录即可：

DSN=Excel Files;DBQ=Data1.xlsm;DefaultDir=.

或者更简洁（DefaultDir可以省略，DBQ直接写文件名即可）：

DSN=Excel Files;DBQ=Data1.xlsm

2. 连接相邻目录的Data2.xlsm #

从Alpha目录上一级到Clients目录，再进入Beta目录，用../表示上一级，正确的连接字符串是：

DSN=Excel Files;DBQ=../Beta/Data2.xlsm;DefaultDir=../Beta

具体修改方法 #

方法一：手动修改现有连接 #

1. 打开Project.xlsm，切换到「数据」选项卡
2. 点击「连接」按钮，在弹出的对话框中选中要修改的连接
3. 点击「属性」→ 切换到「定义」选项卡
4. 在「连接字符串」输入框中，把绝对路径替换成上面的相对路径
5. 点击「测试连接」确认能正常访问，然后保存修改

方法二：用VBA动态生成相对路径（更灵活） #

如果担心文件后续被移动（只要Alpha和Beta的相对结构不变），可以用VBA自动生成路径，避免手动修改的麻烦：

1. 按Alt+F11打开VBA编辑器
2. 插入一个新模块（右键点击Project.xlsm → 插入 → 模块）
3. 粘贴以下代码：

Sub UpdateExcelConnections()
    Dim targetConn As WorkbookConnection
    Dim currentDir As String
    
    ' 获取当前工作簿所在的目录（末尾自动添加路径分隔符）
    currentDir = ThisWorkbook.Path & "\"
    
    ' 遍历所有工作簿连接
    For Each targetConn In ThisWorkbook.Connections
        If targetConn.Type = xlConnectionTypeODBC Then
            ' 更新Data1.xlsm的连接
            If InStr(targetConn.OLEDBConnection.Connection, "Data1.xlsm") > 0 Then
                targetConn.OLEDBConnection.Connection = _
                    "DSN=Excel Files;DBQ=" & currentDir & "Data1.xlsm;DefaultDir=" & currentDir
            End If
            
            ' 更新Data2.xlsm的连接
            If InStr(targetConn.OLEDBConnection.Connection, "Data2.xlsm") > 0 Then
                ' 上一级目录（Clients）的路径
                Dim parentDir As String
                parentDir = Left(currentDir, InStrRev(currentDir, "\", -2))
                targetConn.OLEDBConnection.Connection = _
                    "DSN=Excel Files;DBQ=" & parentDir & "Beta\Data2.xlsm;DefaultDir=" & parentDir & "Beta\"
            End If
            
            ' 刷新连接获取最新数据
            targetConn.Refresh
        End If
    Next targetConn
    
    MsgBox "连接路径已更新并刷新完成！", vbInformation
End Sub

4. 回到Excel界面，按Alt+F8运行这个宏，就能自动更新所有相关连接

关键注意事项 #

• 相对路径的有效性完全依赖文件的相对位置：如果把Project.xlsm移动到和Clients同级的目录，那相对路径就会失效，但用VBA方法的话，只要Alpha和Beta还在Clients目录下，代码依然能找到文件。
• 修改连接前，确保所有相关文件（Data1.xlsm、Data2.xlsm）没有被其他程序锁定，否则可能测试连接失败。
• 建议先复制一份测试文件，在测试环境中验证修改效果，再改动原文件。

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