Public Sub OutDataToExcel(Flex As MSFlexGrid) '导出至Excel  Dim s As String  Dim i As Integer  Dim j As Integer  Dim k As Integer  On Error GoTo Ert  Me.MousePointer = 11  Dim Excelapp As Excel.Application  Set Excelapp = New Excel.Application  On Error Resume Next  DoEvents  Excelapp.SheetsInNewWorkbook = 1  Excelapp.Workbooks.Add  Excelapp.ActiveSheet.Cells(1, 3) = s  Excelapp.Range("C1").Select  Excelapp.Selection.Font.FontStyle = "Bold"  Excelapp.Selection.Font.Size = 16  With Flex  k = .Rows  For i = 0 To k - 1  For j = 0 To .Cols - 1  DoEvents  Excelapp.ActiveSheet.Cells(3 + i, j + 1) = "'" & .TextMatrix(i, j)  Next j  Next i  End With  Me.MousePointer = 0  Excelapp.Visible = True  Excelapp.Sheets.PrintPreview Ert:  If Not (Excelapp Is Nothing) Then  Excelapp.Quit  End If End Sub

评论