VBA执行SQL存储过程报错'3704对象关闭时不允许操作'如何解决

错误产生原因 #

该错误本质是调用ConnDB.Execute返回的RecSet对象处于关闭状态，无法访问EOF属性，最常见的诱因有2类：

• 存储过程未添加SET NOCOUNT ON配置：如果[dbo].[Pivot_Claims]内部包含INSERT、UPDATE、DELETE等DML操作，SQL Server默认会先返回「受影响行数」的计数结果，ADODB会把这个计数结果当做第一个返回的记录集，这个记录集没有数据、执行完就自动关闭，你拿到的就是这个关闭的对象，真正的查询结果集存在下一个结果集序列里。
• 存储过程执行异常：比如执行账号没有存储过程的执行权限、存储过程内部语法报错、依赖的表/视图不存在，都会导致执行完没有返回有效记录集，RecSet直接处于关闭状态。

解决方案 #

按优先级从高到低选择即可：

1. 修改存储过程（最优方案）
   在[dbo].[Pivot_Claims]的开头添加语句SET NOCOUNT ON;，关闭DML操作的行数计数返回，让存储过程直接返回查询结果集，不需要额外调整VBA代码即可解决问题。

2. VBA侧遍历结果集（适配无法修改存储过程的场景）
   在执行存储过程获取RecSet后，添加逻辑跳过无效的关闭结果集，找到有效的查询结果集，示例代码如下：

' 原有执行存储过程的代码不变
Set RecSet = ConnDB.Execute(SQL_Query)

' 新增：遍历跳过空的关闭结果集
Const adStateClosed As Integer = 0
Do While Not RecSet Is Nothing And RecSet.State = adStateClosed
    Set RecSet = RecSet.NextRecordset
Loop

' 再判断RecSet是否有效
If RecSet Is Nothing Or RecSet.State = adStateClosed Then
    MsgBox "存储过程未返回有效结果，请检查存储过程执行是否正常"
    ' 可遍历ConnDB.Errors查看具体的SQL报错信息
    GoTo Cleanup ' 跳转到资源释放逻辑
End If

If Not RecSet.EOF Then
    ThisWorkbook.Sheets(ClaimSheet).Range("B6").CopyFromRecordset RecSet
    RecSet.Close    
Else
    MsgBox "No Records Found"
End If

' 新增：资源释放统一逻辑
Cleanup:
If Not RecSet Is Nothing Then
    If RecSet.State = adStateOpen Then RecSet.Close
    Set RecSet = Nothing
End If
If Not ConnDB Is Nothing Then
    If ConnDB.State = adStateOpen Then ConnDB.Close
    Set ConnDB = Nothing
End If

3. 异常排查兜底
   如果上面两个方案都没解决，先在SSMS中用同一Windows账号登录对应的SQL Server实例，执行EXEC [dbo].[Pivot_Claims]，确认是否能正常返回结果、有没有报错，排查权限、存储过程本身的逻辑问题。

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