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