VB6.0的DATAGRID数据导出EXCEL
VB6.0的DATAGRID数据导出EXCEL中为什么只显示最后一页的数据？请高手指正，代码如下：
Private Sub Command5_Click()
Dim ex As Object
Dim i As Integer
Dim j As Integer
Dim XlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = True
Set xlBook = XlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
For i = 0 To DataGrid1.Columns.Count
For j = 0 To DataGrid1.ApproxCount
DataGrid1.Col = i
On Error Resume Next
DataGrid1.Row = j
xlSheet.Cells(j + 1, i + 1) = DataGrid1.Columns.Item(i).Text
Next j
Next i
End Sub
IJ以外再加个翻页循环吧（如果有的话）。追问
分页循环怎么写？
追答DataGrid1.ApproxCount 是不是要改为 DataGrid1.rows.Count
追问用ADO来写是不是更方便一些？
追答对、直接用Range.copyFromRecordset就OK了。
本回答被提问者采纳
查询结果有5页，导出只有最后一页的数据
换页之后，你是不是又从Cells(1,1)开始写入的?所以把前几页写的又替换掉了？
追问那要怎么写才能把DATAGRID中的内容全部导出呢？向您请教了
追答比如你的GRID第一页有100条数据。导第二页的时候就要从xxx.Cell(101,1).Value 开始。
