MSFlexGrid控件
功能：
显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。
特有属性：
Row和Col（控件当前单元）
Rows与Cols（行数与列数）
ColWidth与RowHeight（列宽与行高）
AllowUserResizing（是否准许用户调整单元格大小）
Sort（对表格进行排序）
CellTextStyle、TextStyle、TextStyleFixed（文本样式）
特有事件：
SelChange
RowColChange
EnterCell
Compare
导出至Excel：
Dim objExlApp As New Excel.Application
Dim objExlBook As New Excel.Workbook
Dim objExlSheet As New Excel.Worksheet
Dim Wsheet As String
Wsheet = LabN.Caption
If MSFG1.Rows >1 Then
CommonDialog1.Filter = "Excel文件(*.xls)|*.xls|所有文件|*.*"
CommonDialog1.FileName =””
CommonDialog1.ShowSave
objExlApp.Visible = False
objExlApp.DisplayAlerts = False
objExlApp.ScreenUpdating = False
'创建新的工作薄
Set objExlBook =objExlApp.Workbooks.Add
'设置要使用的工作表
Set objExlSheet = objExlBook.Sheets(1)
For i = 0 To MSFG1.Rows – 1
For j=0 toMSFG1.Cols-1
objExlSheet.Cells(i, j) = MSFG1.TextMatrix(i, j)
next j
next i
sFileName= CommonDialog1.FileName
objExlSheet.SaveAs sFileName
objExlApp.Visible = True
objExlApp.ScreenUpdating = True
objExlApp.DisplayAlerts = True
objExlApp.Application.quit
Set objExlSheet = Nothing
Set objExlBook = Nothing
SetobjExlApp = Nothing
Else
MsgBox "没有可导出的数据，请先进行查询！"
End If