机房收费系统——将MSHFlexGrid控件中的数据导出到Excel

Private Sub cmdExport_Click()
    Dim i As Integer
    Dim j As Integer
    myFlexGrid.Redraw = False    '关闭表格重画，加快运行速度
     Set xlApp = CreateObject("Excel.Application")   '创建EXCEL对象
     '打开已经存在的EXCEL工件簿文件
     Set xlBook = xlApp.Workbooks.Open(App.Path & "\学生上机记录.xls")
    xlApp.Visible = True '设置EXCEL对象可见
     Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
     For i = 0 To myFlexGrid.Rows - 1 '行循环
            For j = 0 To myFlexGrid.Cols - 1 '列循环
                 myFlexGrid.Row = i
               myFlexGrid.Col = j
              '保存到EXCEL                                                xlBook.Worksheets("Sheet1").Cells(i + 1, j + 1) = myFlexGrid.Text                           Next j
    Next i
    myFlexGrid.Redraw = True
End Sub

Private Sub cmdExport_Click()
    Dim i As Integer
    Dim j As Integer
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")   '实例化对象xlApp
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    For i = 0 To myFlexGrid.Rows - 1
        For j = 0 To myFlexGrid.Cols - 1
            myFlexGrid.Row = i
            myFlexGrid.Col = j
            xlSheet.Cells(i + 1, j + 1) = Trim(myFlexGrid.Text)
        Next
    Next
End Sub