首先的是是准备工作

需要引用 Microsoft Excel 11.0 Object Library

需要添加控件Mircrosoft Hierarchical FlexGrid Control 6.0(SP4) (OLEDB)

我们来看一下代码

Private Sub cmdOut_Click()

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    On Error GoTo Err_Proc

    Set xlApp = CreateObject("Excel.Application") '创建一个电子表格

    Set xlBook = xlApp.Workbooks.Add    '新建一个工作簿文件

    Set xlSheet = xlBook.Worksheets(1)  '新建一个sheet表

   

    Dim i As Long

    Dim j As Integer

    

    With MyFlexGrid

        For i = 0 To .Rows - 1      '读取所有的行

            For j = 0 To .Cols - 1  '读取所有的列

                xlSheet.Cells(i + 1, j + 1).Value = .TextMatrix(i, j)

            Next j

        Next i

    End With

    

    xlApp.Visible = True       '使得excel表可见

 

    Exit Sub

Err_Proc:

    Screen.MousePointer = vbDefault

    MsgBox "请确认您的电脑已安装Excel！ ", vbExclamation, "提示 "

End Sub

最新文章

1. Vue - 在v-repeat中使用计算属性
2. ios项目中安装和使用CocoaPods
3. 第一个WCF的程序
4. 图论(四)------非负权有向图的单源最短路径问题，Dijkstra算法
5. attribute section的用法
6. MapReduce的reduce函数里的key用的是同一个引用
7. Linux中oracle的安装，亲测
8. javascript学习笔记（window .alert 是什么）
9. 微信小程序之----问题
10. vs调试dll工程
11. java并发编程(1) --并发基础及其锁的原理
12. Linux安装NodeJS
13. angular ng-click防止重复提交
14. SQL语法基础之DELETE语句
15. jQuery File Upload 判断图片尺寸，限定图片宽高的办法
16. mongodb 批量修改
17. js substring
18. js文件中获取${pageContext.request.contextPath}
19. 第40章 CAN—通讯实验—零死角玩转STM32-F429系列
20. PAT甲题题解-1041. Be Unique (20)-水题

热门文章

1. Codeforces 161 D. Distance in Tree (树dp)
2. Eclipse 安装对 Java 8 的支持
3. 【待补】java开发Web Service
4. android UI开源库
5. CSS超出2行省略号
6. 响应式的dribbble作品集魔术布局展示效果
7. linux下的文件操作——批量重命名
8. java学习笔记（5）——内部类
9. TP复习7
10. TOJ3650 Legal or Not