在Excel消息框中显示SQL Server过程调用的结果

Sub CallSQLServerProcedure()
    Dim conn As Object
    Dim cmd As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    
    ' 连接字符串，根据实际情况修改数据库服务器、数据库名称、用户名和密码
    strConn = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' SQL语句，根据实际情况修改过程名称和参数
    strSQL = "EXECUTE dbo.过程名称 @参数1 = 值1, @参数2 = 值2"
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开数据库连接
    conn.Open strConn
    
    ' 创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    
    ' 设置命令对象属性
    With cmd
        .ActiveConnection = conn
        .CommandType = 1 ' adCmdText
        .CommandText = strSQL
    End With
    
    ' 执行命令并获取结果集
    Set rs = cmd.Execute
    
    ' 将结果集中的数据写入Excel工作表
    Sheet1.Range("A1").CopyFromRecordset rs
    
    ' 关闭连接和释放对象
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub