新手求教SQL数据导入EXCEL

来源：百度知道 编辑：UC知道 时间：2024/05/21 12:13:29
在下才疏学浅，人也奇笨无比，寻找资料无果，恳求诸位达人，指点迷津
需要将数据从SQL2000导入EXCEL 并实现数据和数据分析图同步更新
求教了
希望能详尽一点 或者有资料

"Select kahao as [卡号] From rsb" "C:\A.XLS"
Private Function ExporToExcel(ByVal strOutSQL As String, ByVal strSaveXLS As String)
On Error GoTo 0
On Error Resume Next

Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Long '记录总数
Dim Icolcount As Long '字段总数

Err.Clear
Rs_Data.Open strOutSQL, db, adOpenDynamic, adLockOptimistic
Rs_Data.MoveLast
Rs_Data.MoveFirst

If Err.Number = 0 Then
Irowcount = Rs_Data.RecordCount
Icolcount = Rs_Data.Fields.Count

Dim xlApp 'As New Excel.Application
Dim xlBook 'As Excel.Workbook
Dim xlSheet 'As Excel.Worksheet
Dim xlQuery 'As Excel.QueryTable

Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing