VB中从MSFlexGrid记录导出为Excel

2024-07-18 08:19| 来源: 网络整理| 查看: 265

机房收费系统中多个窗体用到从MSFlexGrid记录导出为Excel，在VB要导出数据到Excel中，首先要在引用中添加Microsoft Excel 14.0 Object Library 引用，我的代码中用到了对话框，所以我添加了对话框CommonDialog控件。

由于机房收费系统中多次用到这个功能，我把这些代码写到了模块中，定义了一个公有的函数，具体代码如下所示：

Public Function ExportFlexDataToExcel(flex As MSFlexGrid, g_CommonDialog As CommonDialog) On Error GoTo ErrHandler Dim xlApp As Object Dim xlBook As Object Dim Rows As Integer, Cols As Integer Dim iRow As Integer, hCol As Integer, iCol As Integer Dim New_Col As Boolean Dim New_Column As Boolean g_CommonDialog.CancelError = True On Error GoTo ErrHandler ' 设置标志 g_CommonDialog.Flags = cdlOFNHideReadOnly ' 设置过滤器 g_CommonDialog.Filter = "All Files (*.*)|*.*|Excel Files" & _ "(*.xls)|*.xls|Batch Files (*.bat)|*.bat" ' 指定缺省的过滤器 g_CommonDialog.FilterIndex = 2 ' 显示“打开”对话框 g_CommonDialog.ShowSave If flex.Rows

【本文地址】

公司简介

联系我们

今日新闻

推荐新闻

专题文章