第一次机房收费系统—Excel导出数据

前言：

      机房进行到查询模块了，涉及到了查询语句以及Excel数据导出的问题，在查阅了小伙伴们的博客后，了解了导出的原理，今天把这个知识点进行总结一下！

一、引用Microsoft Excel 16.0 Object library部件

                             

如果找不到的话则点击“浏览”项；文件类型选择“可执行文件”，在C:/Program Files(x86)/Microsoft Office/Office16    路径中找到Excel。

二、代码展示

Private Sub cmdOut_Click()              Dim j As Integer  ' 定义控件的行值       Dim i As Integer  ' 定义控件的列值              Dim xlApp As Excel.Application  '定义Excel程序       Dim xlBook As Excel.Workbook    '定义工作表       Dim xlSheet As Excel.Worksheet  '定义工作表           If MSHFlexGrid1.TextMatrix(Row, Col) = "" Then        '判断是否有数据可以导出       MsgBox "当前没有记录可导出！", vbOKOnly + vbExclamation, "警告！"       Exit Sub    Else       MSHFlexGrid1.Redraw = False '关闭表格              Set xlApp = CreateObject("Excel.Application") '对象实例化       xlApp.Visible = True                          '对象可见      Set xlBook = xlApp.Workbooks.Open(App.Path & "\学生上机记录.xlsx")       Set xlSheet = xlBook.Worksheets(1)            '实例化表单              '将MSHFLexGrid中的数据导入到Excel中          For i = 0 To MSHFlexGrid1.Rows - 1              For j = 0 To MSHFlexGrid1.Cols - 1                  MSHFlexGrid1.Row = i                  MSHFlexGrid1.Col = j                  xlBook.Worksheets("sheet1").Cells(i + 1, j + 1) = MSHFlexGrid1.Text              Next j          Next i        MSHFlexGrid1.Redraw = True              End If            End Sub

小结：世上无难事！只怕有心人！只要去坚持就会有收获！