vba执行Sqlserver存储过程生成recordset填充到表格

Option Explicit

Sub exportdata()
    Dim sht As Worksheet, conn, rs, i
    Set sht = ActiveSheet
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("Adodb.Recordset")
    conn.Open "Provider=sqloledb;server=127.0.0.1,1433\sqlexpress;database=sdbbmain;Integrated Security=SSPI;Persist Security Info =False;"
    rs.Open "exec getdq", conn
    
    For i = 0 To rs.Fields.Count - 1
        sht.Cells(1, i + 1) = rs(i).Name
    Next
    
    sht.Range("a2").CopyFromRecordset rs
    
    conn.Close
    
    Set rs = Nothing
    Set conn = Nothing
    Set sht = Nothing
End Sub