Question

VB Dategrid数据导入Excel中的问题

Private Sub Command2_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 - 1
DataGrid1.Col = i
On Error Resume Next
DataGrid1.Row = j
xlSheet.Cells(j + 2, i + 1) = DataGrid1.Columns.Item(i).Text
Next j
Next i
End Sub

请问一下，这段程序可以导出来，但是DateGrid显示了很多记录，屏幕中显示出来的可以导出来，但是有些记录屏幕没显示出来（可以通过下来条显示出来）,屏幕显示出来的记录导出来是正确的，屏幕没显示出来的记录就是错误的，下面导出的记录都是屏幕显示出来的最后一条，也不知道是什么问题，麻烦各位大神帮忙把这个程序修改一下，谢谢~

Answer 1

ApproxCount只能用于校准滚动条，和DataGrid的全部行数不一样，DataGrid的准确行数从DataGrid里面无法得到，建议从关联的ADODC或者recordset里面取

追问

那这个程序需要怎么改一下呢？

追答

看你的datagrid数据是从哪里取的？把全部代码贴出来吧

追问

追答

For i = 0 To rs.columns.Count-1
rs.movefirst
For j = 0 To rs.recordcount - 1
On Error Resume Next
xlSheet.Cells(j + 2, i + 1) = rs.columns(i).Text
rs.movenext
Next j
Next i

追问

谢谢你，我把你的程序改了改，可以实现我要的功能了！谢谢了~