一、背景

机房收费系统中有很多地方用到了“导出Excel表”这个功能，那么，怎么导出呢？

二、导出Excel表

1、电脑安装office

2、引用

之前已经有一篇博客介绍过如何引用控件（点我查看）

3、实现VB与Excel的交互

方法（1）

直接使用代码实现交互。

Private Sub cmdExport_Click()'导出为Excel表格Dim introws As Integer                           '用作循环，表示MSHFlexGrid的总行数Dim intcols As Integer                           '用作循环，表示MSHFlexGrid的总列数Dim XlsApp As excel.Application                  '定义excel对象Dim XlsSheet As excel.Worksheet                  '定义excel的表Dim XlsBook As excel.Workbook                    '定义excel工作簿Set XlsApp = CreatObject("Excel.Application")    '实例化Excel对象Set XlsBook = XlsApp.Workbooks.Add               '加载工作簿Set XlsSheet = XlsBook.Worksheets(1)             '创建工作表'循环，导出MSHFlex1中所有记录到ExcelFor introws = 0 To MSHFlexGrid1.Rows - 1For intcols = 0 To MSHFlexGrid1.Cols - 1If intcols = 0 Then                              '第一列为学号，将其转换成字符串格式，否则首位的0无法显示XlsSheet.Cells(introws + 1, intcols + 1) = "'" & MSHFlexGrid1.TextMatrix(introws, intcols)ElseSlsSheet.Cells(introws + 1, intcols + 1) = MSHFlexGrid1.TextMatrix(introws, intcols)End IfNext intcolsNext introws'释放对象XlsApp.Visible = TrueSet SlsApp = NothingEnd Sub

方法（2）

我们已经知道了有hin多窗体要用到这个功能，那么这些代码也是需要多次被复制粘贴的。可能有的人已

经觉得这样挺方便了，几乎没有技术含量了。但是，作为更高效的人，应该想到更加简便的方法，不将

就。没错，我们可以利用模块的功能。把代码写进公共模块中，需要的时候直接用简单几行代码调用

（Call Export(MSHFlexGrid1) ）就可以了。

以下是代码：（与直接导出的代码有细微区别，请自己发现吧。）

Public Function Export(myGrid As MSHFlexGrid)  '导出为Excel表格Dim introws As Integer                            '用做循环，表示MSHFlexGrid的总行数Dim intcols As Integer                            '用做循环，表示MSHFlexGrid的总列数Dim XlsApp As excel.Application                   '定义Excel对象Dim XlsSheet As excel.Worksheet                   '定义Excel的表Dim XlsBook As excel.Workbook                     '定义Excel的工作簿If myGrid.Text = "" ThenMsgBox "没有记录！", vbOKOnly, "提示"Exit FunctionEnd IfSet XlsApp = CreateObject("Excel.Application")    '实例化Excel对象Set XlsBook = XlsApp.Workbooks.Add                '加载工作簿Set XlsSheet = XlsBook.Worksheets(1)              '创建工作表'循环，导出MSHFlex1中的所有记录到ExcelFor introws = 0 To myGrid.Rows - 1For intcols = 0 To myGrid.Cols - 1If intcols = 0 Then                       '第一列为学号，将其转换成字符串格式，否则首位的0无法显示XlsSheet.Cells(introws + 1, intcols + 1) = "'" & myGrid.TextMatrix(introws, intcols)ElseXlsSheet.Cells(introws + 1, intcols + 1) = myGrid.TextMatrix(introws, intcols)End IfNext intcolsNext introws'释放对象XlsApp.Visible = TrueSet XlsApp = NothingEnd Function

（其中，“Export"控件名称，由自己命名即可。）

【机房收费系统】---导出Excel表相关推荐

机房重构之导出Excel表
在导出excel表的时候,先后尝试了两种方法.第一种方法是添加Microsoft.Office.Interop的引用.第二种方法是用了第三方控件NPOI.下面就介绍一下我的excel之旅. 方法一.添 ...
机房收费系统之导出Excel
刚开始接触机房收费的时候,连上数据库,配置ODBC,登陆进去,那窗体叫一个多,不由地有种害怕的感觉,但是有人说,每天努力一点点,就会进步一点点,不会的就会少一点点,会的就会多一点点........ 在 ...
机房收费系统---软件需求说明书
软件需求说明书 1引言 1.1编写目的说明编写这份软件需求说明书的目的,指出预期的读者. 主要是方便设计人员,分析人员以及用户之间的联系与交流,明确用户的需求,及时改善项目的功能和性能,同时对该项目 ...
《机房收费系统》软件需求说明书
1引言 1.1编写目的主要说明机房收费系统用户的各个方面的工作需求,包括教职工的值班结账,学生的上下机等.预期读者是系统分析员和开发人员. 1.2背景说明: a．待开发的软件系统的名称:机房收费 ...
机房收费系统之软件需求说明书
1.引言 1.1编写目的本软件的需求说明书是为了使用户和软件开发者对该软件的初始规定有一个共同的理解,使之成为整个开发工作的基础文档.是对需求分析的各项结果进行了总结详细描述了本软件的规格,并且给出 ...
【软工文档】机房收费系统之软件需求说明书
1引言...2 1.1编写目的...2 1.2背景...2 1.3定义...3 1.3.1 专门术语的定义:...3 1.3.2 相关技术与开发工具介绍:...3 1.4参考资料...3 2任务概述. ...
（十）机房收费系统操作手册
操作手册 1引言 1.1编写目的本手册的目的在于告诉机房收费系统的使用者,本系统提供了那些功能,以及如何正确地.有效地来使用这些功能. 预期读者是机房收费系统的用户. 1.2前景 A.待开发软件名称 ...
【机房收费系统】——收官
机房收费系统从开始到结束大概有三个月了.中间经过了期末复习,大概一个月左右的时间没有进行机房.一个月左右在拖拉敷衍.估算了一下,完成机房的有效输出时间大概在一个月左右的时间. 由于机房收费系统之前,自 ...
一零零、机房收费系统研究报告(Sql Server)
SQL是英文Structured Query Language的缩写,意思为结构化查询语言.SQL语言的主要功能就是同各种数据库建立联系,进行沟通.按照ANSI(美国国家标准协会)的规定,SQL被作为 ...

【机房收费系统】---导出Excel表