嘿，这个场景我太熟了——手动改几十上百个Excel报表的连接绝对是噩梦，给你几个靠谱的批量解决方案，按需选就行：

方案1：Power Query批量修改（适合用Power Query连接存储过程的报表） #

如果你的Excel报表是通过Power Query调用存储过程的，这个方法效率很高：

1. 先拿一个样本文件测试：
   • 打开文件，切换到「数据」选项卡，打开「查询和连接」面板。
   • 右键任意一个查询，选择「编辑」进入Power Query编辑器。
   • 点击主页选项卡的「数据源设置」，选中旧数据库连接，点「更改源」，把数据库名替换成新的，保存并关闭编辑器。
2. 批量处理所有文件：
   写个简单的VBA宏来自动遍历指定文件夹下的所有Excel文件，批量更新数据源。示例代码如下：

   Sub UpdatePowerQuerySources()
       Dim folderPath As String
       Dim fileName As String
       Dim wb As Workbook
       Dim qry As WorkbookQuery
       
       folderPath = "C:\你的报表文件夹路径\" ' 替换成你的实际文件夹路径
       fileName = Dir(folderPath & "*.xlsm") ' 支持xlsm，若为xlsx则改成*.xlsx
       
       ' 关闭屏幕刷新和警告，提升速度
       Application.ScreenUpdating = False
       Application.DisplayAlerts = False
       
       Do While fileName <> ""
           Set wb = Workbooks.Open(folderPath & fileName)
           ' 遍历所有查询
           For Each qry In wb.Queries
               ' 替换连接字符串中的旧数据库名为新数据库名
               qry.Formula = Replace(qry.Formula, "OldDatabaseName", "NewDatabaseName")
           Next qry
           wb.Save
           wb.Close
           fileName = Dir()
       Loop
       
       Application.ScreenUpdating = True
       Application.DisplayAlerts = True
       MsgBox "批量更新完成！"
   End Sub
   

   注意：运行宏前要确保Excel启用了宏，并且给文件夹路径权限。

方案2：ODBC/OLEDB连接批量修改（适合传统数据库连接的报表） #

如果报表用的是ODBC或OLEDB直接连接存储过程：

子方案2.1：修改系统DSN（最快，前提是所有报表用同一个DSN） #

• 打开Windows的「ODBC数据源管理器」（32位或64位，对应你的Excel版本）。
• 找到你之前用来连接旧数据库的DSN，双击进入设置，把「默认数据库」改成新的数据库名称，保存设置。
• 所有用这个DSN的Excel报表，下次打开时会自动连接新数据库，完全不用改文件！

子方案2.2：VBA批量替换连接字符串 #

如果每个报表用的是独立的连接字符串，用VBA批量替换：

Sub UpdateOLEDBConnections()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim conn As WorkbookConnection
    Dim oldConnStr As String
    Dim newConnStr As String
    
    folderPath = "C:\你的报表文件夹路径\"
    fileName = Dir(folderPath & "*.xlsm")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        For Each conn In wb.Connections
            If conn.Type = xlConnectionTypeOLEDB Then
                oldConnStr = conn.OLEDBConnection.Connection
                ' 替换连接字符串中的旧数据库名，示例格式：Initial Catalog=OldDB;
                newConnStr = Replace(oldConnStr, "Initial Catalog=OldDatabaseName;", "Initial Catalog=NewDatabaseName;")
                conn.OLEDBConnection.Connection = newConnStr
                ' 可选：刷新数据
                conn.Refresh
            End If
        Next conn
        wb.Save
        wb.Close
        fileName = Dir()
    Loop
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "批量更新完成！"
End Sub

方案3：SQL Server端同义词映射（零修改Excel，适合有权限的场景） #

如果你有旧数据库的DDL权限，这个方案最省心——在旧库中给每个迁移的存储过程创建同义词，指向新库的对应存储过程：

-- 示例：为旧库的存储过程创建同义词，指向新库的同名存储过程
CREATE SYNONYM [dbo].[YourOldSPName] FOR [NewDatabase].[dbo].[YourNewSPName];

可以写个脚本批量生成所有同义词：

-- 从旧库的存储过程列表生成同义词创建语句
SELECT 
    'CREATE SYNONYM [dbo].[' + name + '] FOR [NewDatabase].[dbo].[' + name + '];'
FROM 
    sys.procedures
WHERE 
    type = 'P'; -- 只筛选存储过程

这样Excel报表完全不用修改，调用旧库存储过程的请求会自动转发到新库的对应SP。等所有报表都确认切换完成后，再删除这些同义词即可。

注意事项 #

• 先拿1-2个报表测试方案，确保数据正确后再批量操作；
• 批量处理前一定要备份所有Excel文件，防止意外；
• 确保操作账号有新数据库的访问权限和存储过程的执行权限。

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