数据导出到Excel的6种方法(VB6)

数据导出到Excel的6种方法(VB6)

在数据操作中，特别是与数据库相关的操作中，我们需要经常导出数据到Excel表格中，下面我们提供了六种方式来将数据导出到Excel表格中：
如果大家C币比较多的话，可以直接下载我整理好的源码：点击此处下载>>>>

此实例提供了6种导出数据到Excel的方法，说明如下：
1.通过获取Excel对象，然后使用Excel的QueryTable方法生成数据到Excel表指定位置，速度比较快
代码如下:：

	Dim xlApp As New Excel.Application
    Dim xlQuery As Excel.QueryTable
    Dim xlSheet As Worksheet
    Dim SQL As String
    On Error GoTo Err_Cmd_QueryTable_Click
    '-------------------------------------
    ConnMDB
    If RS.State Then RS.Close
    Set xlApp = New Excel.Application    '初始化对象变量
    xlApp.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
    xlApp.Workbooks.Add          '增加一个工作薄
    xlApp.Sheets(xlApp.Sheets.Count).Name = "QueryTable技术导出记录集"  '修改工作薄名称
    Set xlSheet = xlApp.Worksheets("QueryTable技术导出记录集")
    SQL = "select * from student"
    Query2Excel SQL, Cnn, xlSheet, "A1", xlQuery 'A1即可将数据放到A1单元格
      '删除产生的连接
      Dim i As Long
    For i = xlSheet.Application.ActiveWorkbook.Connections.Count To 1 Step -1
        xlSheet.Application.ActiveWorkbook.Connections(i).Delete
    Next i
    xlApp.Visible = True
    xlApp.Application.Visible = True
    Set xlApp = Nothing  '"交还控制给Excel
    Set xlSheet = Nothing
    '-------------------------------------
   On Error GoTo 0
   Exit Sub
Err_Cmd_QueryTable_Click:
   If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】：" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_QueryTable_Click]的 " & Erl & "行" & vbCrLf & "是否继续？", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next

其中ConnMDB及Query2Excel函数如下
代码如下:

Public Cnn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RStmp As New ADODB.Recordset
Public FilePath As String
'连接本地Access数据库
Public Function ConnMDB() As Boolean
    Dim ConnStr As String
    If Cnn.State Then Cnn.Close
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=true;Persist Security Info=True;Data Source=" & App.Path & "\data.mdb"
    Cnn.CursorLocation = adUseClient
    Cnn.Open ConnStr
    If Cnn.State = 0 Then
        MsgBox "连接本地数据库失败，系统自动退出.", vbOKOnly + vbInformation, "信息提示"
    Else
        ConnMDB = True
    End If
End Function