将MSHFlexgrid中的数据导出为Excel文件

在机房收费系统中有很多的窗体要导出为Excel文件。

首先要在应用  工程——引用

然后敲下以下代码，其中根据不同的人的喜好，有些地方可能有些小区别，但功能不会有什么影响的。

    Dim tmpExcel As Excel.Application
    Dim tmpsheet As Excel.Worksheet
    Dim i As Integer
    Dim j As Integer
    
    If myflexgrid.Rows = 1 Then
        MsgBox "没有数据", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        Set tmpExcel = New Excel.Application
            tmpExcel.Workbooks.Add (1)
        Set tmpsheet = tmpExcel.ActiveWorkbook.ActiveSheet
        ' 将 MSHFlexgrid中的数据导出到Excel文件中
        For i = 1 To myflexgrid.Rows
            For j = 1 To myflexgrid.Cols
                tmpsheet.Cells(i, j) = myflexgrid.TextMatrix(i - 1, j - 1)
            Next j
        Next i
        tmpExcel.Visible = True  '显示出Excel文件
    End If

其中 i和j 的值加还是减要注意，小心越界。