关于将数据库导出到EXCEL的问题

Question

我想要把DBGrid 或者DataGrid 的内容导出到EXCEL中,为什么只能导出列表中显示的部分内容? 
   当DBGrid 或者DataGrid 需要用上下的滚动条查看数据内容时,导出内容不完整或程序报错
   但将DBGrid 或者DataGrid 拉动到不需要上下的滚动条就能看到全部内容时,就能将所有内容导出

Answer 1

Dim xlsApp As Excel.Application
    Dim xlsBook As Excel.Workbook
    Dim xlsSheet As Excel.Worksheet
    Set xlsApp = New Excel.Application
    Set xlsBook = xlsApp.Workbooks.Add
    Set xlsSheet = xlsBook.Worksheets(1)
查詢數據
    While Not AdoRst.EOF
        
                xlsSheet.Cells(i, 1) = AdoRst(0)
                 ......
                i = i + 1
        AdoRst.MoveNext
    Wend    If Dir("c:\sale_chk.xls") <> "" Then Kill "c:\sale_chk.xls"
    xlsBook.SaveAs "c:\sale_chk.xls"

Answer 2

嘿嘿  谢谢doveday()   可帮了我大忙了