vb6如何将MSHFlexGrid控件中的内容导出为Excel
发布时间:2020-12-17 07:50:34 所属栏目:百科 来源:网络整理
导读:首先的是是准备工作 需要引用 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 Objec
首先的是是准备工作
需要引用 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |