如何将MSHFlexGrid控件中的内容导出为Excel

首先的是是准备工作

需要引用 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
<p>
</p><p>
</p>