将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

阅读更多
个人分类: | VB 6 |
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭