请教怎样把数据库中的数据插入到EXCEL中

Question

Private Function RsToExcel(ByVal Rs As Object, ByVal vFilename As String, ByRef lSumRecord As Long) As Long
'把记录集的内容保存到excel文件中
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Sheets
Dim j As Long, i As Long    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add
    Set oSheet = oBook.Worksheets(1)
'#########方法一######################
    lSumRecord = 0
'    On Error Resume Next
    While Not Rs.EOF
        j = j + 1
        pgbRead.Value = j
        For i = 0 To Rs.Fields.Count - 2
            oSheet.Range(Trim(Chr(97 + i)) & CLng(j)) = Trim(Rs.Fields(i + 1))
            DoEvents
        Next
        lSumRecord = lSumRecord + 1
        Rs.MoveNext
        DoEvents
    Wend
    
    pgbRead.Value = 1
'#########方法二#######################
'    oSheet.Range("A").CopyFromRecordset Rs
    
    If chkHavePassword.Value Then
        oBook.SaveAs vFilename, , sRPassword, sWPassword
    Else
        oBook.SaveAs vFilename
    End If
    oExcel.Quit
    Set oSheet = Nothing
    Set oBook = Nothing
    Set oExcel = Nothing
   
End Function

Answer 1

救命，说的有点太夸张了吧，举手之劳而已；如以后有问题可在CSDN上发消息，QQ我就不想留了。