导出查询记录到excel

[twtiqfn]

此段代码只能导出最大数目为19条的记录，并且导出的身份证后也是以科学计数法显示，怎么更改代码啊：
On Error Resume Next
Dim i As Long, j As Long
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsApp = New Excel.Application
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.Workbooks.Add
xlsApp.Sheets("Sheet1").Select
DataGrid1.Row = 0
i = 1
Do While DataGrid1.Row >= 0
If i = DataGrid1.Row Then Exit Do
i = DataGrid1.Row

For j = 0 To DataGrid1.Columns.Count - 1
With xlsApp
.Cells(DataGrid1.Row + 1, j + 1) = DataGrid1.Columns(j).Text
End With
Next
DataGrid1.Row = DataGrid1.Row + 1
Loop

If xlsApp.ActiveWorkbook.Saved = False Then
xlsApp.ActiveWorkbook.SaveAs App.Path & "\mmm0.xls"
End If
xlsApp.Quit
Set xlsApp = Nothing

[of123]

1 DataGrid 的 Row 是可见部分的行。最好直接用记录集对象的 EOF 属性来控制。

2 导出日期字段时，用 Format 函数设置日期格式，赋值时前面可加一个 ' 号表示字符串。

[dbcontrols]

先把On Error Resume Next去掉，谬种流传，害人不浅