Private Sub Command1_Click()
'导出
Dim Mrows, Mcols As Integer
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim i, j As Long
Mrows = MSHFlexGrid1.Rows
Mcols = MSHFlexGrid1.Cols
On Error GoTo err
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets("Sheet1")
xlApp.Visible = True
xlApp.UserControl = True
For i = 1 To Mrows
For j = 1 To Mcols - 1
xlWs.Cells(i, j).Value = MSHFlexGrid1.TextMatrix(i - 1, j)
Next
Next