vb datagrid 导出到excel 行号无效

Dim i As Integer
Dim j As Integer
Dim z 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
'On Error Resume Next
Set xlBook = xlApp.Workbooks.Add(App.Path + "\ruhui.xls")
Set xlSheet = xlBook.Worksheets(1)
For j = 0 To DataGrid1.Columns.Count - 1
xlSheet.Cells(1, j + 1) = DataGrid1.Columns.Item(j).Caption
Next j
xlSheet.Cells(6, 1) = "i"
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
MsgBox i
DataGrid1.Row = i
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
'MsgBox DataGrid1.Text

If IsNull(DataGrid1.Text) = False Then
xlSheet.Cells(i + 2, j + 1) = DataGrid1.Text
End If
Next j

vb读取文本文件内容到datagrid vb datagrid vb 数据 导出到excel datagrid导出excel的问题 vb中datagrid问题 VB Datagrid控件 vb.net datagrid 用法 vb datagrid 问题 vb datagrid 排序 帮我看看，datagrid导出到EXCEL后，怎么日期变成了一组数？