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

来源：互联网发布：linux vi 跳转到最后编辑：程序博客网时间：2024/05/22 02:17

首先的是是准备工作

需要引用 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 SubErr_Proc: Screen.MousePointer = vbDefault MsgBox "请确认您的电脑已安装Excel！ ", vbExclamation, "提示 "End Sub

0 0