Excel VBA调用SQL Server存储过程报错求助

你遇到的两个错误，核心原因和修正方案如下：

错误原因分析 #

1. Object doesn't support this property or method：代码中With ActiveWorkbook后直接调用.Cells，但ActiveWorkbook（工作簿对象）本身没有Cells属性，必须指定到具体工作表层级。
2. Operation is not allowed when the object is closed：通常是存储过程执行时返回了关闭的空记录集——比如存储过程包含PRINT语句、未设置SET NOCOUNT ON，或者后续NextRecordset获取到了无结果的关闭对象。

修正后的代码 #

Sub SQP_Procedure_Into_Excel()
    Dim conn As Object
    Dim cmd As Object
    Dim strConn As String
    Dim ws As Worksheet
    Dim rs As Object ' 统一用后期绑定，避免库引用兼容性问题
    
    ' 指定要写入数据的工作表（可替换为具体表名，比如ThisWorkbook.Worksheets("数据工作表")）
    Set ws = ActiveSheet
    
    strConn = "Provider=SQLOLEDB;Data Source=##########;Initial Catalog=##########;Integrated Security=SSPI;"
    
    Set conn = CreateObject("ADODB.Connection")
    conn.Open strConn
    
    Set cmd = CreateObject("ADODB.Command")
    
    With cmd
        .ActiveConnection = conn
        .CommandText = "[###].[############]"
        .CommandType = 4 ' adCmdStoredProc
        .Properties("CursorLocation") = 3 ' adUseClient，避免服务器端游标限制
    End With
    
    Set rs = cmd.Execute
    
    Dim startcol As Long
    startcol = 1
    
    With ws ' 改用具体工作表对象，而非工作簿对象
        Do While Not rs Is Nothing
            ' 先检查记录集是否处于打开状态且有字段
            If rs.State = 1 And rs.Fields.Count > 0 Then
                ' 写入字段名
                Dim col As Long
                For col = 0 To rs.Fields.Count - 1
                    .Cells(1, startcol + col).Value = rs.Fields(col).Name
                Next col
                ' 写入记录数据
                .Cells(2, startcol).CopyFromRecordset rs
                ' 更新下一个结果集的起始列
                startcol = startcol + rs.Fields.Count + 1
            End If
            ' 获取下一个记录集，空值则退出循环
            Set rs = rs.NextRecordset
            If rs Is Nothing Then Exit Do
        Loop
    End With
    
    ' 清理资源
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    If Not cmd Is Nothing Then Set cmd = Nothing
    If Not conn Is Nothing Then
        conn.Close
        Set conn = Nothing
    End If
End Sub

关键修改说明 #

• 指定具体工作表：替换ActiveWorkbook为ws（具体工作表对象），解决Cells属性不支持的错误。
• 添加记录集状态校验：操作前检查rs.State = 1（记录集打开）和字段数，避免操作关闭的对象。
• 统一后期绑定：所有ADODB对象用Object声明，无需手动引用“Microsoft ActiveX Data Objects x.x Library”，适配不同Excel版本。
• 存储过程端优化：建议在存储过程开头添加SET NOCOUNT ON;，避免返回额外的行数统计消息，减少空记录集的产生；如果有PRINT、非严重RAISERROR等语句，建议移除或注释，这类语句会生成空记录集导致报错。

内容的提问来源于stack exchange，提问作者Atila D. Grings