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

longbao 2006-12-26 11:58:01

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

...全文

122 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

longbao 2006-12-27

打赏
举报

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

doveday 2006-12-26

打赏
举报

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"