第一次机房收费系统—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

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