求助：批量修改Excel外部数据源路径（替换年份标识）的高效方法

方法一：VBA宏批量替换链接 #

直接在主文件里运行宏，批量修改所有外部链接的路径和文件名，不会改动文件内容：

1. 打开你的主Excel文件，按Alt + F11打开VBA编辑器
2. 插入新模块：右键左侧项目浏览器→插入→模块
3. 粘贴以下代码，按F5运行：

Sub UpdateAllLinks()
    Dim lnk As Link
    Dim oldPath As String, newPath As String
    
    For Each lnk In ThisWorkbook.LinkSources(xlExcelLinks)
        oldPath = lnk
        ' 替换路径中的2023为2024，文件名中的23.xlsx为24.xlsx
        newPath = Replace(oldPath, "\2023\", "\2024\")
        newPath = Replace(newPath, "23.xlsx", "24.xlsx")
        
        ' 更新链接
        ThisWorkbook.ChangeLink Name:=oldPath, NewName:=newPath, Type:=xlExcelLinks
    Next lnk
    
    MsgBox "所有链接已更新完成！", vbInformation
End Sub

4. 运行前务必先备份主文件和2023文件夹内的所有文件，避免意外
5. 提前确认C:\Overview\2024\Data文件夹已创建，且对应的24.xlsx文件已存在（可先批量复制2023的文件到2024文件夹，再批量重命名）

方法二：先批量处理文件，再简化链接修改 #

如果2024文件夹还没有对应文件，先完成文件的复制重命名，再快速修改链接：

步骤1：批量复制文件到2024文件夹 #

• 手动创建C:\Overview\2024\Data文件夹
• 打开C:\Overview\2023\Data，全选所有Excel文件，复制到2024的Data文件夹中

步骤2：批量重命名文件名 #

• 在2024的Data文件夹里，全选所有文件，按F2修改第一个文件的23.xlsx为24.xlsx，按Enter后系统会自动批量替换所有文件名中的23为24

步骤3：一键更新链接 #

• 打开主文件，点击「数据」→「编辑链接」→「更改源」，选择2024文件夹里任意一个文件，Excel会自动匹配同一文件夹下所有对应文件名的链接，无需逐个修改

注意事项 #

• 所有操作前必须备份文件，防止数据丢失
• 若VBA宏运行报错，检查宏设置：文件→选项→信任中心→信任中心设置→宏设置→临时启用所有宏，完成操作后改回安全设置
• 若文件名里的年份格式是2023.xlsx，可调整VBA代码中的替换规则，把"23.xlsx"改成"2023.xlsx"即可

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