怎么测量智商多少:vb ADO Recordset导入Excel

来源：百度文库编辑：偶看新闻时间：2024/04/29 06:35:42

使用ADO Recordset对象导入Excel

'**************************************
' 过程名: Recordset2Excel
' 描   述: 使用ADO Recordset对象把记录导入到Excel文件中
' 输   入:ADO Recordset
'****************************************
Public Sub Recordset2Excel(rstSource As ADODB.Recordset)
    Dim xlsApp As Excel.Application
    Dim xlsWBook As Excel.Workbook
    Dim xlsWSheet As Excel.Worksheet
    Dim i, j As Integer
On Error Resume Next
    Set xlsApp = GetObject(, "Excel.Application")       ' 建立 Excel 对象
    If Err.Number <> 0 Then
        Set xlsApp = New Excel.Application
            Err.Clear
    End If
    Set xlsWBook = xlsApp.Workbooks.Add          ' 建立 WorkSheet    Set xlsWSheet = xlsWBook.ActiveSheet
    For j = 0 To rstSource.Fields.Count
        xlsWSheet.Cells(2, j + 1) = rstSource.Fields(j).Name     ' 导出 ColumnHeaders
    Next j
   rstSource.MoveFirst
    For i = 1 To rstSource.RecordCount
        For j = 0 To rstSource.Fields.Count
             xlsWSheet.Cells(i + 2, j + 1) = rstSource.Fields(j).Value      ' 导出 Data
        Next j
        rstSource.MoveNext
    Next i
    rstSource.MoveFirst
    For i = 1 To rstSource.Fields.Count
          xlsWSheet.Columns(i).AutoFit        ' 自适应行标题
    Next i
    xlsWSheet.Range("A1").Select
    xlsApp.Visible = True          ' 显示 Excel
    Set xlsApp = Nothing
    Set xlsWBook = Nothing
    Set xlsWSheet = Nothing
End Sub

vb编程中ADO中RECORDSET中Fields的问题 vb ado 连接mysql，打开recordset时报错。在ADO的Recordset中二次查询 ado中有关recordset的delete方法 vb ado连接access vb ado连接数据库关于VB Recordset 的属性回答VB的recordset.find VB Recordset 属性和方法关于ADO RecordSet类Addnew方法的问题 Recordset么意思 vb里问题 vb中要用recordset必须引用什么呀? 在VB中Recordset.Fields是什么意思啊 vb 连接sql数据库中recordset问题 VB 封装 ASP 中 Recordset 问题 RecordSet 在VB中用ADO控件连接数据库 ADO与VB连接查询代码求解VB+SQL，ADO连接，感激涕零 vb中 ADO控件怎样做查询 VB编程ADO，数据库用access VB中recordset移动-〉删除-〉插入新纪录问题如何用VB编写这样的recordset.find 语句对不起，请再帮忙回答VB的recordset.find