尝试在EXCEL中自动运行SQL存储过程

Sub RunSQLStoredProcedure()
    Dim conn As Object
    Dim cmd 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 = "存储过程名称"
    
    ' 执行存储过程
    cmd.Execute
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set cmd = Nothing
    Set conn = Nothing
End Sub