如何使用VBA执行可新增/更新数据库记录的SQL存储过程？

核心问题根源 #

• 小数分隔符不匹配：你本地Excel区域配置用逗号作为小数分隔符，拼接出的EXEC DB.[dbo].[myProc] '11,23'语句中，'11,23'是带逗号的字符串，传入SQL后无法隐式转换为decimal类型，存储过程执行报错直接回滚。而Excel内置OLEDB连接的Refresh方法默认会吞掉执行报错，所以你看不到任何错误提示。
• 连接方法不适配写操作：你用的Excel内置连接配置是为查询拉取数据设计的，Refresh方法默认只处理返回结果集的查询操作，执行插入/更新类非查询操作时，不会自动提交事务，执行完成后直接回滚，自然不会产生数据变化。这也是为什么拉取数据正常、写操作失效的核心原因。
• 你之前改VBA变量类型、改SQL字段类型的操作都没有解决最核心的格式转换和提交逻辑问题，所以无效。

修复步骤 #

1. 优先改用ADODB对象直接执行存储过程，不要用Excel内置连接的Refresh方法，更稳定也能拿到明确报错，代码示例如下：

Sub SaveData()
    Dim conn As Object
    Dim cmd As Object
    Dim myValue As Double
    Dim connStr As String
    
    ' 直接复用你现有myConn的连接字符串，不需要额外修改配置
    connStr = ActiveWorkbook.Connections("myConn").OLEDBConnection.Connection
    myValue = Sheets("XYZ").Range("valueToSave").Value
    
    Set conn = CreateObject("ADODB.Connection")
    Set cmd = CreateObject("ADODB.Command")
    
    conn.Open connStr
    With cmd
        .ActiveConnection = conn
        .CommandText = "DB.[dbo].[myProc]"
        .CommandType = 4 ' 对应存储过程类型，无需额外引用库也可直接用数值
        ' 参数化传值，自动处理小数格式转换，避免拼接字符串的风险
        .Parameters.Append .CreateParameter("@你的存储过程参数名", 14, 1, , CDbl(Replace(myValue, ",", ".")))
        ' 执行非查询操作，不需要返回结果集
        .Execute , , 128
    End With
    
    ' 释放资源
    conn.Close
    Set cmd = Nothing
    Set conn = Nothing
End Sub

注意把代码里的@你的存储过程参数名替换成你myProc实际定义的输入参数名即可。

2. 如果坚持要用原来的内置连接方式，需要做两处修改：

• 拼接语句前把数值的逗号替换为点号："EXEC DB.[dbo].[myProc] " & Replace(myValue, ",", ".") （注意如果是数值类型参数不要加单引号）
• 打开myConn连接的属性，取消勾选只读连接选项，同时在连接字符串中加上Implicit Commit=True开启自动提交。

验证排查方式 #

如果修改后还有问题，可以在SSMS中开启SQL Server Profiler跟踪，捕获Excel端发起的实际SQL请求，就能直接看到语句报错、权限不足等具体问题。

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