这个窗体之所以可以顺利的进行下去,全靠借助于巨人的力量,站在了巨人的肩膀上前行,Excel的导出还是很神奇的,让我们一起来看一下吧^_^
一、学生查看上下机记录窗体的流程图
二、查询集
①、机房收费系统中Excel表如何导出
②、vb中DoEvents是什么意思
三、代码片段
MSHFlexGrid控件数据导出至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
以上便是此窗体的简单梳理,下一站走起^_^