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

发布时间：2020-12-17 07:44:55 所属栏目：百科来源：网络整理

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

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

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

<span style="font-size:18px;">Private Sub cmdExportExcel_Click()
  Dim i As Integer
  Dim j As Integer
 
<span style="color:#ff0000;">'  Dim xlApp As excel.Application 这样定义报错：未定义（故用以下方式定义）</span>
  <span style="color:#3333ff;">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 = True
End Sub</span>

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

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

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

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

：

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!