机房收费系统之导出Excel

Option Explicit
Public Function EduceExcel(myGrid As MSHFlexGrid)  '定义导出excel函数
    Dim xlapp As New excel.Application  '之所以用到new。是因为是引用类型，声明excel对象
    Dim xlbook As excel.Workbook   '声明工作簿对象
    Dim xlsheet As excel.Worksheet  '声明工作表单
    Dim i As Integer
    Dim j As Integer
    If myGrid.Text = "" Then
        MsgBox "没有记录可导出！", vbOKOnly + vbExclamation, "警告"
        Exit Function
    Else
       Set xlapp = CreateObject("excel.application")  '调用excel程序
       Set xlbook = xlapp.Workbooks.Add(1)            '创建新的空白簿
       Set xlsheet = xlbook.Worksheets(1)   '创建新的工作表单
            For i = 0 To myGrid.Rows - 1
            '填入数据
            For j = 0 To myGrid.Cols - 1
                xlsheet.Cells(i + 1, j + 1) = myGrid.TextMatrix(i, j)        'cell(a,b)表示a行，b列，这让写是因为vb中默认是从0开始的，而excel是从1开始的
            Next j
            Next i
        xlapp.Visible = True         '显示Excel表格
        Set xlapp = Nothing          '交还控制给Excel
    End If
End Function