Office中国论坛/Access中国论坛

标题: 导出DataGrid到Excel [打印本页]

作者: Grant 时间: 2008-1-14 00:57
标题: 导出DataGrid到Excel
'-作者;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 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

作者: mk2leo 时间: 2008-1-14 10:02
請問DataGrid 是什麼意思

作者: tmtony 时间: 2008-1-14 10:21
不错,收藏了!!

作者: fannky 时间: 2008-1-14 12:01
好东西，收下了

作者: Victor_Duane 时间: 2008-1-14 12:58
噢,代码简洁,收藏了,谢谢GG

作者: wuwu200222 时间: 2024-5-23 09:44
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)