首先的是是准备工作
需要引用 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 +