机房收费系统-学生查看上机记录

简介: 机房收费系统-学生查看上机记录

这个窗体里我认为最困难的一个就是MSHFlexGrid控件数据导出Excel

因为我的电脑里没有office,只有WPS,所以我VB里就没有Excel这个引用。

一、学生查看上机记录窗体的流程图
二、部分代码展示

Private Sub cmdexportexcel_Click()
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)            '创建一个工作表
DoEvents
'因以下代码运行时间较长,所以转让控制权,让操作系统处理其他事件,避免操作不响应误认为死机
If myflexgrid.Rows <= 1 Then
    MsgBox "没有可导出数据", vbOKOnly, "提示"
End If
With myflexgrid
    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
End Sub

三、前人栽树后人乘凉

这就是站在巨人的肩膀上,这个时代网络带来的便利

机房收费系统中Excel表如何导出

https://blog.csdn.net/whc888666/article/details/80369278

目录
打赏
0
0
0
0
3
分享
相关文章
【期末不挂科-C++考前速过系列P5】大二C++实验作业-多态性(3道代码题)【解析,注释】
【期末不挂科-C++考前速过系列P5】大二C++实验作业-多态性(3道代码题)【解析,注释】
【期末不挂科-C++考前速过系列P1】大二C++第1次过程考核(3道简述题&7道代码题)【解析,注释】
【期末不挂科-C++考前速过系列P1】大二C++第1次过程考核(3道简述题&7道代码题)【解析,注释】
机房收费系统之总结(一)
机房收费系统之总结(一)
61 0
天梯赛真题——7-6 老板的作息表(25 分)
新浪微博上有人发了某老板的作息时间表,表示其每天 4:30 就起床了。但立刻有眼尖的网友问:这时间表不完整啊,早上九点到下午一点干啥了? 本题就请你编写程序,检查任意一张时间表,找出其中没写出来的时间段。
713 0
天梯赛真题——7-6 老板的作息表(25 分)
还在担心期末挂科吗? 期末必备复习资料-----“树“的概念
还在担心期末挂科吗? 期末必备复习资料-----“树“的概念
143 0
机房收费系统—心得
机房收费系统—心得
77 0