'-作者;Grant
'-时间;2008-1-14'-Email;20991943@qq,cin
'-QQ;20991943
'-网站;www.accessbbs.cn
'-博客;http://www.accessbbs.cn/bbs/blog/?uid/3
'-简介;应网友所求导出DataGrid到Excel

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

    Set Excel = CreateObject("Excel.Application")
    Set Book = 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 Book = Nothing
    Set Excel = Nothing