汽配仓库管理:vb ADO Recordset对象导入Excel (转)

来源：百度文库编辑：偶看新闻时间：2024/04/27 14:42:44

vb ADO Recordset对象导入Excel

' 过程名: RecordsettoExcel
' 描   述:使用ADO Recordset对象把记录导入到Excel文件中
' 输   入:ADO Recordset
'
Public Sub RecordsettoExcel(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对象? vb+ado对象+datagrid 纵向合计和横向合计 asp recordset对象 recordset对象是做啥用的 ADO对象的修在ADO的Recordset中二次查询 ado中有关recordset的delete方法 vb ado连接access vb ado连接数据库关于VB Recordset 的属性回答VB的recordset.find VB Recordset 属性和方法关于ADO RecordSet类Addnew方法的问题 asp问题：recordset对象的游标问题 recordset对象是用出现了问题 recordset对象使用时出现了问题 recordset对象使用时出现了问题 recordset对象使用时出现了问题如何调用recordset对象的move方法 asp中recordset缺少对象的问题关于Recordset对象属性的问题 ado对象模型和ADO数据控件的区别