机房收费系统之用VB导出数据到Excel

概述 最初在完成导出数据到Excel表的功能的时候，代码中没有下边的蓝色部分，只有红色部分的代码，运行是没有问题的，后运行的时候就报错了……我很是不解，觉得它在戏弄我只好按照它的提示去排除错误，最终将红色部分的代码变成了蓝色部分。 如今机房收费系统完成了，准备进行一次大总结，故回过头来将过程中总结的某些博客再次编辑，修复存在的漏洞，温故知新…… <span style="font-size:18px;

最初在完成导出数据到Excel表的功能的时候，代码中没有下边的蓝色部分，只有红色部分的代码，运行是没有问题的，后运行的时候就报错了……我很是不解，觉得它在戏弄我只好按照它的提示去排除错误，最终将红色部分的代码变成了蓝色部分。

如今机房收费系统完成了，准备进行一次大总结，故回过头来将过程中总结的某些博客再次编辑，修复存在的漏洞，温故知新……

<span >Private Sub cmdExportExcel_Click()  Dim i As Integer  Dim j As Integer <span >'  Dim xlApp As excel.Application 这样定义报错：未定义（故用以下方式定义）</span>  <span >Dim xlApp As Object  '必须这样定义  Dim xlBook As Object  Dim xlSheet As Object</span>   MSHFlexGrID.Redraw = False  '关闭表格重画，加快运行速度  Set xlApp = CreateObject("Excel.Application")  '创建EXCEL对象    '打开已经存在的EXCEL工件簿文件  Set xlBook = xlApp.Workbooks.Open(App.Path & "\查询记录.xlsx")  xlApp.Visible = True '设置EXCEL对象可见  Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表     For i = 0 To MSHFlexGrID.Rows - 1 '行循环    For j = 0 To MSHFlexGrID.Cols - 1 '列循环      MSHFlexGrID.Row = i      MSHFlexGrID.Col = j      '保存到EXCEL      xlBook.Worksheets("Sheet1").Cells(i + 1,j + 1) = MSHFlexGrID.Text    Next j  Next i  MSHFlexGrID.Redraw = TrueEnd Sub</span>

　　在机房收费系统中，学生查看上机记录、学生充值记录查询、收取金额查询、金额返还信息查询、学生上机统计信息等窗体在运行的过程中都需要将显示在MSHFlexGrID控件中的查询结果导入到Excel表格中，于是，如何编写代码就成了新的挑战，第一次接触，只好站在巨人的肩膀上了，前人栽树后人乘凉的度娘总是那样无私：

1.在与VB工程同一根目录中建立将要导入数据的Excel表格，给出与代码书写中一致的命名；

2.例如”学生查看上机记录“中代码如下：

机房的电脑上装的是Office2013，新建的表格没显示后缀名，导致运行时报错：

：

那么，怎样显示Excel的文件后缀名？

答：随便打开一个文件夹，左上角菜单“组织”——文件夹和搜索选项——查看——将“隐藏已知文件类型的扩展名”前面的勾去掉——确定。

总结

以上是内存溢出为你收集整理的机房收费系统之用VB导出数据到Excel全部内容，希望文章能够帮你解决机房收费系统之用VB导出数据到Excel所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。