机房系统(五)——【Excel表导出】

前言
最近在做机房收费系统的时候,遇到了将查询结果导出为Excel表的形式。一开始感觉这个很难,但经过查阅相关的博客后,还是比较顺利的实现功能了。
正文
在VB中导出Excel表,实际上就是VB与Excel的交互。首先我们的计算机中要有Excel,然后从VB程序中引用下框中内容。

在这里插入图片描述


PS:如果一开始没有找到这一项,也不用着急。单击右侧的“浏览”按钮即可,找到自己电脑上Excel文件的位置,添加上再引用就OK。(为方便快速找到Excel文件的位置,我们可以先找到Excel.exe程序,右击查看文件所在位置,在浏览时候直接定位到该位置。)
引用完成后,下一步就需要让VB能认识Excel了。为让他们能互相认识,可以和睦共处,就需要我们做下面的工作来帮助他们了。

    Dim ExcelApp As Excel.Application   '定义Excel表格应用程序
    Dim ExcelBook As Excel.Workbook     '定义Excel表格工作簿
    Dim ExcelSheet As Excel.Worksheet   '定义Excel表格工作表
    Dim i As Integer    '定义excel表中的行变量
    Dim j As Integer    '定义excel表中的列变量


    Set ExcelApp = CreateObject("Excel.application")    '创建一个excel应用程序对象
    Set ExcelBook = ExcelApp.Workbooks.Add              '创建一个工作簿
    Set ExcelSheet =ExcelBook.Worksheets(1)            '创建一个工作表

    DoEvent '因以下代码运行时间较长,所以转让控制权,让操作系统处理其他事件,避免操作不响应误认为死机

	If MSFlexGrid1.Rows <= 1 Then
        	MsgBox "没有可导出数据!",vbOKOnly, "温馨提示:"
	End
	
	If  With MSFlexGrid1
        For i = 0 To .Rows - 1                      '循环添加行内容
            For j = 0 To .Cols - 1                  '循环添加列内容
            DoEvents
            ExcelApp.ActiveSheet.Cells(i + 1, j+ 1) = .TextMatrix(i, j)  '添加单元格内容
            Next j
        Next i
    End With
    
    ExcelApp.ActiveWorkbook.SaveAs App.Path& "\学生查询.xls"    '设置Excel保存路径
    ExcelApp.ActiveWorkbook.Saved = True           '保存excel表格
    MsgBox "导出成功!", vbOKOnly, "温馨提示:"
    ExcelApp.Visible = True                       '显示excel表格

  
    Set ExcelApp = Nothing                 '释放ExcelApp对象
    Set ExcelBook = Nothing
    Set ExcelSheet = Nothing


结语
在机房收费系统中,多次用到了Excel表的导出,所以我将这部分代码声明到了模块中,用到的时候直接用Call调用即可。在导出选择是否保存时,点击否会出现错误,而不是直接关闭。所以在调用的同时,增加了一步错误处理。
评论 19
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值