2007-03-05 09:33:29| 分类: Visual Basic | 标签: |举报 |字号大中小 订阅
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
评论