在机房收费系统中,有几个窗体需要导出数据到EXCEL表格中,如:学生上机记录查询窗体、学生充值记录查询窗体、收取金额查询窗体等。
前面的几篇总结,大家建议我不要把代码写的太详细,这样,不利于读者思考,以后我自己回顾的时候,可能也会看也不看,直接粘上所要用的东西,这样就起不到博客应该起到的作用。所以这篇博客,我会换一个方式来总结。
在导出EXCEL表格之前,首先要确保你的电脑已经安装了office。然后,可以编辑一个函数 , 定义导出表格的过程,在使用的时候,直接调用就ok了,这样,系统中所有的导出表格的过程都可以用这一个函数,也减少了代码量。这个函数如下:
Public Sub ExportToExcel(FormName As Form, FlexgridName As String) '导出Excel表的过程
Dim xlApp As Object 'Excel程序
Dim xlBook As Object 'Excel工作薄
Dim xlSheet As Object 'Excel工作表
Screen.MousePointer = vbHourglass '鼠标指示为等待状态
On Error GoTo Err_Proc
Set xlApp = CreateObject("Excel.Application") '调用execel程序
Set xlBook = xlApp.Workbooks.Add '添加工作薄
Set xlSheet = xlBook.Worksheets(1) '添加工作单元
'向工作单元中添加数据
Dim i As Long
Dim j As Integer
With FormName.Controls(FlexgridName)
For i = 0 To .Rows - 1 '行依次增加从0开始 外循环,外循环每增加1,内循环循环一周
For j = 0 To .Cols - 1 '一行有.cols列 从0开始循环
xlSheet.Cells(i + 1, j + 1).Value = "'" & .TextMatrix(i, j) '工作表中采用(x,y)坐标,都从1开始
Next j
Next i
End With
xlApp.Visible = True '设定Excel程序可见
Screen.MousePointer = vbDefault '鼠标指针设为默认状态
Exit Sub
Err_Proc:
Screen.MousePointer = vbDefault '鼠标指针设为默认状态
MsgBox "请确认您的电脑已安装Excel,或是否安装正确!", vbExclamation, "机房收费系统"
End Sub
简单方便,导出EXCEL表格。
分享到:
相关推荐
代码实现,从数据库快速导出数据到EXCEL文件
VB将数据库导出到TXT文本文件中,注意一般文件路径正确的话,就可以顺利导出成功
vb编写的oracle数据库导入导出,实用方便.只需填写oracle帐号密码即可
数据库技术及应用——SQL Server课件
VB数据库开发实例——专卖连锁销售统计系统并解析
vb导出ACCESS数据库中一个表的内容到EXCEL MDB2XLS
绝对原创的vb查询access数据库 本程序功能如下: 1.将数据库mycnno.mdb中的数据显示在控件datagrid中 2.用文本框1输入要查询的学号,文本框2显示查询的结果
VB数据库编程报告——学生管理系统
VB数据库编程报告——办公秘书系统
!利用VB实现将Access数据库导出到Excel文件中.pdf
利用vb导出数据库中的数据,一般路径正确的话可以正确下载。
利用VB存取数据库中BLOB数据,此文档仅提供了一种方法,仅供需要者参考(文档来源于网络,供大家参考学习使用)
VB导出WPS例子, 有WPS文字部份.WPS表格部份 文字部份功能较简,表格较多,较祥细,有说明. 希望大家喜欢.(非官版) 尽情下吧~~~~~~~~
使用:首先要点清理数据库,然后导入我给的例子EXCEL文件,数据库也一样,大家可以大碍数据库先看一下表结构,当然也可以在VB里直接创建新数据库,点生成后最下面的大按钮会可用,点开就打开了生成文件所在的目录。
VB版机房收费系统,VB版机房收费系统,VB版机房收费系统,VB版机房收费系统,VB版机房收费系统,
VB 模拟数据库查询 VB 模拟数据库查询
教程内容:VB开发数据库之使用数据绑定访问数据 使用数据库中数据,首先需要建立数据库连接,并获得其中的数据。VB为用户提供了许多方式访问数据库。
前台用的VB,数据库为Access有详 前台用的VB,数据库为Access有详
vb.net数据库连接实例,人事管理系统,数据库管理系统,图书馆管理,学生名册管理系统
VB数据库查询示例程序,简单说明VB查询数据库