在网上的导出为EXCEL文档的方法大概是这样的
DimiAsInteger,jAsInteger
DimmyexcelAsNewExcel.Application
DimmybookAsNewExcel.Workbook
DimmysheetAsNewExcel.Worksheet
Setmybook=myexcel.Workbooks.Add'添加一个新的BOOK
Setmysheet=mybook.Worksheets.Add'添加一个新的SHEET
'Fori=1Tomyres.RecordCount
'Forj=1Tomyres.Fields.Count
'mysheet.Cells(i,j)=myres.Fields.Item(j-1).Value
'If(i*j)Mod500=0Then
'DoEvents
'EndIf
'Nextj
'myres.MoveNext
'Nexti
myexcel.Visible=T...[ 查看全文 ]