Excel VBA - 存储过程 (SQL Server)

使用Excel VBA和SQL Server存储过程可以实现强大的数据处理和管理功能。Excel VBA是一种基于Microsoft Excel的编程语言，可以通过编写宏来自动执行各种操作。而SQL Server存储过程则是一组预编译的SQL语句，可以在数据库中执行，从而提高执行效率和数据安全性。

vba
Sub ConnectToSQLServer()
    Dim conn As Object
    Dim rs As Object
    Dim sqlQuery As String
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    ' 设置连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
    ' 打开连接
    conn.Open
    ' 设置SQL查询语句
    sqlQuery = "SELECT * FROM 表名"
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    ' 执行查询
    rs.Open sqlQuery, conn
    ' 将查询结果导入Excel表格
    Sheet1.Range("A1").CopyFromRecordset rs
    ' 关闭连接和记录集
    rs.Close
    conn.Close
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub

vba
Sub CallStoredProcedure()
    Dim conn As Object
    Dim cmd As Object
    Dim param As Object
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    ' 设置连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
    ' 打开连接
    conn.Open
    ' 创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    ' 设置命令对象属性
    cmd.ActiveConnection = conn
    cmd.CommandType = 4 ' adCmdStoredProc
    cmd.CommandText = "存储过程名称"
    ' 添加输入参数
    Set param = cmd.CreateParameter("@参数名称", adVarChar, adParamInput, 50, "参数值")
    cmd.Parameters.Append param
    ' 执行存储过程
    cmd.Execute
    ' 关闭连接
    conn.Close
    ' 释放对象
    Set param = Nothing
    Set cmd = Nothing
    Set conn = Nothing
End Sub