国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

'**************************************
' 過程名: Recordset2Excel
' 描   述:使用ADO Recordset對(duì)象把記錄導(dǎo)入到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
    
    ' 獲取或者建立 Excel 對(duì)象
    On Error Resume Next
    Set xlsApp = GetObject(, "Excel.Application")


    If Err.Number <> 0 Then
        Set xlsApp = New Excel.Application
            Err.Clear
    End If
    
    ' 建立 WorkSheet
    Set xlsWBook = xlsApp.Workbooks.Add
    Set xlsWSheet = xlsWBook.ActiveSheet
    
    ' 導(dǎo)出 ColumnHeaders


    For j = 0 To rstSource.Fields.Count
        xlsWSheet.Cells(2, j + 1) = rstSource.Fields(j).Name
    Next j
    
    ' 導(dǎo)出 Data
    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
        Next j
        rstSource.MoveNext
    Next i
    rstSource.MoveFirst
    ' 自適應(yīng)行標(biāo)題


    For i = 1 To rstSource.Fields.Count
        xlsWSheet.Columns(i).AutoFit
    Next i

    xlsWSheet.Range("A1").Select
    
    
    ' 顯示 Excel
    xlsApp.Visible = True
    
    Set xlsApp = Nothing
    Set xlsWBook = Nothing
    Set xlsWSheet = Nothing
End Sub