VB查询数据库之导出表格——机房收费总结(四)
来源:互联网 发布:mac装虚拟机 编辑:程序博客网 时间:2024/05/16 12:02
在机房收费系统中,有几个窗体需要导出数据到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 SubErr_Proc: Screen.MousePointer = vbDefault '鼠标指针设为默认状态 MsgBox "请确认您的电脑已安装Excel,或是否安装正确!", vbExclamation, "机房收费系统"End Sub
简单方便,导出EXCEL表格。
- VB查询数据库之导出表格——机房收费总结(四)
- VB查询数据库之组合查询——机房收费总结(二)
- VB查询数据库之写入数据库——机房收费系统总结(三)
- VB查询数据库之登陆窗体——机房收费总结(一)
- VB查询数据库之结账——机房收费系统总结(五)
- VB查询数据库之报表——机房收费系统总结(六)
- VB查询数据库之终极篇——机房收费系统总结(七)
- 机房收费总结之——Excel表格的导出
- 【VB与数据库】——机房收费系统总结
- (vb)机房收费系统之——调用excel 表格(引用)
- vb.net机房收费总结——数据库应用之链接篇
- 【VB与数据库】——机房收费系统之结账
- vb.net机房收费系统重构——总结(四)软件工程文档3
- VB-机房收费系统之Excel导出
- 机房收费系统之导出Excel表格
- VB.NET版机房收费系统---导出Excel表格
- VB与数据库(三)之迟到的机房收费系统总结
- 机房收费系统(四)——MSFlexGrid用法总结
- struts2中result type介绍
- java 修饰符的作用一(public protected default private 组)
- Ubuntu设置root用户自动登录
- jquery简单的无刷新提交和删除评论
- Android Library Project 使用问题总结
- VB查询数据库之导出表格——机房收费总结(四)
- URL转码错误解决
- Extjs的xtype: 'searchfield'的搜索框中文乱码解决方法
- 回文数与回文字符串问题
- Java编码问题(IO流/JSP/Properties)
- 常见数据结构算法题目
- Kei编译出错:Symbol array mutiply difined (in main.o and crc.o),
- 配置minicom与51单片机进行串口通信
- 读矩阵的初等行变换 行列式的性质