如何把datagrid中的数据导入到excel中去？

Question

Dim i_row as integer
  dim i_col As Integer
  '创建EXCEL应用对象，以及相关的EXCEL对象并引用
  Set xlapp = CreateObject("excel.application")
  xlapp.Visible = True
  Set xlbook = xlapp.workbooks.Add
  Set xlsheet = xlbook.worksheets(1)
  i_row = 0
  Do While i_row < mshflexgrid.Rows
     For i_col = 0 To mshflexgrid.Cols - 1
         xlsheet.cells(i_row, i_col + 1) = mshflexgrid.TextMatrix (i_row, i_col)
     Next i_col
     i_row = i_row + 1
  Loop

Answer 1

老兄，给我讲讲具体到datagrid里，怎么做

Answer 2

i_row < mshflexgrid.Rows
这个就是DATAGRID的行啊mshflexgrid.Cols 是它的列啊

Answer 3

但是flexgrid的很多属性和datagrid的不同啊，很简单，datagrid就没有rows属性

Answer 4

http://expert.csdn.net/Expert/topic/1480/1480469.xml?temp=.2984278
里面有篇文章