请大侠帮个忙 datagrid行统计问题

 Dim oExcel As Object
    Dim oBook As Object
    Dim I, J As Integer

    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add()
    oExcel.Visible = True

    For I = 1 To DataGrid1.Columns.Count
        oBook.Worksheets(1).Cells(1, I) = DataGrid1.Columns(I - 1).Caption
        For J = 0 To DataGrid1.VisibleRows - 1（我想实现导出所有的行，却不知用什么来实现，请大家帮个忙）
            oBook.Worksheets(1).Cells(J + 2, I) = DataGrid1.Columns(I - 1).CellText(DataGrid1.RowBookmark(J))
        Next J
    Next I

    Set oBook = Nothing
    Set oExcel = Nothing