Private Sub cmdExportExcel_Click()Dim i As IntegerDim j As IntegerMSHFlexGrid.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 = iMSHFlexGrid.Col = j'保存到EXCELxlBook.Worksheets("Sheet1").Cells(i + 1, j + 1) = MSHFlexGrid.TextNext jNext iMSHFlexGrid.Redraw = TrueEnd Sub 在机房收费系统中，学生查看上机记录、学生充值记录查询、收取金额查询、金额返还信息查询、学生上机统计信息等窗体在运行的过程中都需要将显示在MSHFlexGrid控件中的查询结果导入到Excel表格中，于是，如何编写代码就成了新的挑战，第一次接触，只好站在巨人的肩膀上了，前人栽树后人乘凉的度娘总是那样无私：
1.在与VB工程同一根目录中建立将要导入数据的Excel表格，，给出与代码书写中一致的命名；
2.例如”学生查看上机记录“中代码如下：
机房的电脑上装的是Office2013，新建的表格没显示后缀名，导致运行时报错：
：
那么，怎样显示Excel的文件后缀名？
随便打开一个文件夹，左上角菜单“组织”——文件夹和搜索选项——查看——将“隐藏已知文件类型的扩展名”前面的勾去掉——确定。
版权声明：本文为博主原创文章，未经博主允许不得转载。
希望有一天，自己也像他们一样，踩着单车上路，
