VBA 从sql存储过程-记录集-导入

    cnn.Open cnnstr

    cmd.ActiveConnection = cnn

    cmd.CommandTimeout = 120

    cmd.CommandText = "dbo.t_bigData_MetalParts"

    cmd.CommandType = adCmdStoredProc

'        Set para1 = cmd.CreateParameter("item", adVarChar, adParamInput, 10, item)

'        Set para2 = cmd.CreateParameter("startDate", adDate, adParamInput, 10, dt1)

'        Set para3 = cmd.CreateParameter("endDate", adDate, adParamInput, 10, dt2)

'

'        cmd.Parameters.Append para1

'        cmd.Parameters.Append para2

'        cmd.Parameters.Append para3

'

   rst.Open cmd

    Set xlQr = sht.QueryTables.Add(rst, sht.Range("A1"))

     With xlQuery

           .FieldNames = True

           .FillAdjacentFormulas = False

           .PreserveFormatting = True

           .RefreshOnFileOpen = False

           .BackgroundQuery = True

           .RefreshStyle = xlInsertDeleteCells

           .SavePassword = True

           .SaveData = True

           .AdjustColumnWidth = True

           .RefreshPeriod = 0

           .PreserveColumnInfo = True

           .MaintainConnection = False

   End With

    xlQuery.Refresh