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