Excel修改SQL查询仅单工作表生效，如何实现全表同步更新？

嗨，这个问题我之前帮不少人解决过，批量同步Excel多个工作表的外部连接确实能省超多重复操作！给你两个靠谱的方案，按需选就行：

这个方法能让你通过修改一个单元格，同步所有连接的股票代码，后续维护超省心：

• 先新建一个专门的「参数表」工作表，在某个固定单元格（比如A1）输入当前的股票代码（比如AWK）
• 按下Ctrl+F3打开「名称管理器」，点击「新建」：
  • 名称：起个好记的，比如StockCode
  • 引用位置：直接选择刚才的单元格，比如=参数表!$A$1
  • 点击确定保存这个名称
• 接下来修改所有连接的字符串：
  • 随便打开一个连接的「编辑连接」→「连接属性」→「定义」标签
  • 找到原连接字符串里的股票代码片段（比如原字符串是...symbol=AWK...），把AWK替换成&StockCode&
  • 保存修改后，对所有其他连接重复这个替换操作（只需要改一次引用逻辑，不用每次改代码都碰连接）
• 以后只要修改「参数表」A1的股票代码，刷新所有连接就能同步更新所有工作表的数据了

如果你的连接数量特别多，用VBA能一键完成所有修改，亲测高效：

• 按下Alt+F11打开VBA编辑器
• 右键你的工作簿名称，选择「插入」→「模块」
• 复制粘贴下面的代码：

Sub UpdateAllConnectionsStockCode()
    Dim conn As WorkbookConnection
    Dim oldCode As String
    Dim newCode As String
    
    ' 这里替换成你要修改的旧代码和新代码
    oldCode = "AWK" ' 当前连接里的股票代码
    newCode = "POWI" ' 你想要更新的新代码
    
    For Each conn In ThisWorkbook.Connections
        ' 针对ODBC/OLEDB类型的连接（如果是Web查询，需要调整判断条件）
        If conn.Type = xlConnectionTypeODBC Or conn.Type = xlConnectionTypeOLEDB Then
            ' 替换连接字符串中的股票代码
            conn.OLEDBConnection.Connection = Replace(conn.OLEDBConnection.Connection, oldCode, newCode)
            ' 自动刷新连接
            conn.Refresh
        End If
    Next conn
    
    MsgBox "所有连接已同步更新并完成刷新！", vbInformation
End Sub

• 修改代码里的oldCode和newCode为你需要的内容，按下F5运行代码，瞬间所有连接的股票代码就同步修改完成了
• 要是以后频繁需要修改，可以把这个宏加到Excel快速访问工具栏，点一下就能执行

小提示 #

• 如果你的连接是Web查询类型（不是ODBC/OLEDB），需要把代码里的conn.OLEDBConnection.Connection改成conn.WebConnection.URL，同时调整类型判断为conn.Type = xlConnectionTypeWeb
• 操作前记得备份工作簿，避免意外情况

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