vb6如何将MSHFlexGrid控件中的内容导出为Excel
2014-11-29 16:57
274 查看
首先的是是准备工作
需要引用 Microsoft Excel 11.0 Object Library
需要添加控件Mircrosoft Hierarchical FlexGrid Control 6.0(SP4) (OLEDB)
我们来看一下代码
需要引用 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
相关文章推荐
- 如何将MSHFlexGrid控件中的内容导出为Excel
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何把DataGrid内容导出到Excel
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何将网页内容导出到EXCEL表中……
- MSHFlexgrid控件的内容导出到Excel
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 问题:如何将数据库内容导出到EXCEL
- 如何在VB6中导出EXCEL、FOXPRO格式的表
- 将gridview的内容导出到excel中去
- VS2005如何将GridView导出为Excel
- Gridview中的内容导出到Excel
- VS2005如何将GridView导出为Excel
- 如何将DataGrid中的数据导出到Excel文件中
- 将gridview的内容导出到excel中去