vb6如何将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