机房收费系统——Excel、报表

              从机房收费系统中，我们都学到了很多，成长了很多，也有许多额外的收获。例如：我们肯定都学会了怎样导出为Excel、制作报表等。

        一、导出为Excel

         首先在模块中写入以下函数。

'将下列代码保存到一模块文件中，调用方法：call Export(me,"HFlexgrid")

Public Sub Export(frmName As Form, FlexGridName As String)

    Dim xlApp As Object                 'Excel.Application
    Dim xlBook As Object                'Excel.Workbook
    Dim xlSheet As Object               'Excel.Worksheet

    Screen.MousePointer = vbHourglass
    
    On Error GoTo Err_Proc
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

    'Begin to fill data to sheet
    Dim intRowIndex As Integer
    Dim intColIndex As Integer
    
    With frmName.Controls(FlexGridName) '查找控件
        '填充数据到Sheet1
        For intRowIndex = 0 To .Rows - 1
            For intColIndex = 0 To .Cols - 1
                xlSheet.Cells(intRowIndex + 1, intColIndex + 1).Value = "'" & .TextMatrix(intRowIndex, intColIndex)
            Next intColIndex
        Next intRowIndex
        
    End With
    
    xlApp.Visible = True
    Screen.MousePointer = vbDefault
    Exit Sub
    
Err_Proc:
    Screen.MousePointer = vbDefault
    MsgBox "请确认您的电脑已安装Excel！", vbExclamation, "提示"

End Sub

            然后在按钮的单击事件中写入以下代码就可以了。

Private Sub cmdExportExcel_Click()
     Export Me, "MSFlexGrid1"
End Sub

          二、报表

          我个人很喜欢做报表，感觉它很有意思。不要把它想象的太难了，看了下面这篇博客，你就全都明白了。推荐：机房收费系统之结账与报表（一）逻辑关系

                               机房收费系统之结账与报表（二）周报表制作《一学就会傻瓜版》  

                   机房收费系统之结账与报表（三）VB与报表代码《一学就会傻瓜版》

                 

                   好了，今天就写到这里，更多内容，请见下文……