（在线等待）关于vb操作excel的问题

Question

用DAOhttp://vbboshi.myrice.com/vbtech/database/page_3/file87.htm

Answer 1

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 2

xlbook.save
xlbool.close false