机房收费系统之九（导出Excel）

     在导出Excel表格之前，首先确认你的电脑安装了office。因为涉及导出Excel的窗体很多，所以可以编辑一个函数，用的时候直接调用，减少代码量。

导出Excel代码如下：

Public Sub ExportToExcel(FormName As Form, FlexgridName As String) '导出Excel表的过程      Dim xlApp As Object 'Excel程序      Dim xlBook As Object  'Excel工作薄      Dim xlSheet As Object  'Excel工作表        Screen.MousePointer = vbHourglass '鼠标指示为等待状态      On Error GoTo Err_Proc      Set xlApp = CreateObject("Excel.Application") '调用execel程序      Set xlBook = xlApp.Workbooks.Add '添加工作薄      Set xlSheet = xlBook.Worksheets(1) '添加工作单元        '向工作单元中添加数据      Dim i As Long      Dim j As Integer            With FormName.Controls(FlexgridName)          For i = 0 To .Rows - 1 '行依次增加从0开始 外循环，外循环每增加1，内循环循环一周              For j = 0 To .Cols - 1 '一行有.cols列 从0开始循环                  xlSheet.Cells(i + 1, j + 1).Value = "'" & .TextMatrix(i, j) '工作表中采用（x，y）坐标，都从1开始              Next j          Next i      End With      xlApp.Visible = True '设定Excel程序可见      Screen.MousePointer = vbDefault '鼠标指针设为默认状态      Exit Sub  Err_Proc:      Screen.MousePointer = vbDefault '鼠标指针设为默认状态      MsgBox "请确认您的电脑已安装Excel，或是否安装正确！", vbExclamation, "提示"  End Sub