将MsFlexGrid中的数据导出到Excel中

1.先引用Microsoft Excel 11.0 Object Library 对象

2.在程序中声明对此对象的引用

    Dim objExlApp As New Excel.Application    Dim objExlBook As New Excel.WorkBook    Dim objExlSheet As New Excel.WorkSheet

    创建新的工作薄     Set objExlBook = objExlApp.WorkBooks.Add    设置要使用的工作表     Set objExlSheet = ObjExlBook.Sheets(1)

3.使用Cells属性为工作表的单元格赋值    objExlSheet.Cells(1,1) = MsFlexGrid1.TextMatrix(0, 0) 

4.最后保存并打开工作表   objExlSheet.SaveAs "D:/book1.xls"   objExlApp.visible=true  ' objExlBook.Close