Question

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

若以下回答无法解决问题，邀请你更新回答

Answer 1

做了分页显示吗？那你的页码部分的循环在哪里？
IJ以外再加个翻页循环吧（如果有的话）。

追问

分页循环怎么写？

追答

DataGrid1.ApproxCount　是不是要改为 DataGrid1.rows.Count

追问

用ADO来写是不是更方便一些？

追答

对、直接用Range.copyFromRecordset就OK了。

Answer 2

你指的最后一页，是指的什么最后一页？这里没明白 ，无法帮到你。

追问

查询结果有5页，导出只有最后一页的数据

追答

换页之后，你是不是又从Cells(1,1)开始写入的?所以把前几页写的又替换掉了？

追问

那要怎么写才能把DATAGRID中的内容全部导出呢？向您请教了

追答

比如你的GRID第一页有100条数据。导第二页的时候就要从xxx.Cell(101,1).Value 开始。

Answer 3

fjdlkkjgfd