如何通过SQL命令更新Excel内部表格（适配SharePoint迁移场景）

完全可以在仅依赖Excel环境、不使用SQL Server的前提下，保留原有VBA+SQL的代码逻辑来更新数据，以下是具体实现方案：

1. 用ADO连接Excel自身作为可写数据源 #

直接通过ADO连接当前Excel文件或独立的Excel后端文件，执行UPDATE语句，和原操作.mdb的逻辑几乎一致，仅需修改连接字符串：

连接字符串示例（适配Excel 2007+） #

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
' 连接当前打开的Excel文件
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
         "Data Source=" & ThisWorkbook.FullName & ";" & _
         "Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=0;"";"
' HDR=YES表示第一行是表头，IMEX=0允许写入操作

执行UPDATE SQL示例 #

沿用你熟悉的cnn.Execute逻辑：

Dim sql As String
' 更新指定工作表区域的数据
sql = "UPDATE [业务数据$A1:Z1000] SET 状态='已完成' WHERE 订单编号='ORD2024001'"
cnn.Execute sql, , adCmdText + adExecuteNoRecords

注意事项 #

• 确保目标区域第一行是表头（对应HDR=YES），否则SQL无法识别列名
• 若连接的是共享在SharePoint上的Excel文件，需先将文件以可编辑模式打开，避免只读锁定
• 需确保客户端已安装Microsoft ACE OLEDB 12.0驱动（Office默认自带，缺失可安装Access Runtime）

2. 将原.mdb数据迁移至Excel作为后端 #

把原.mdb中的所有表导出到一个专用的Excel文件（比如系统后端数据.xlsx），隐藏无关工作表，然后通过ADO连接这个文件执行SQL操作，完全复刻原mdb的使用逻辑：

' 连接SharePoint上的Excel后端文件（需先映射SharePoint库为本地驱动器或直接用WebDAV路径）
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
         "Data Source=\\sharepoint-site\sites\你的库\系统后端数据.xlsx;" & _
         "Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=0;"";"

3. 针对SharePoint Lists的补充方案 #

若需要同步SharePoint列表数据，可先通过VBA将SharePoint列表数据导入到Excel临时工作表，用SQL更新该工作表后，再通过VBA批量同步回SharePoint列表——此方式仍可保留你的SQL编写逻辑，仅需增加导入/同步的VBA代码。

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