Private Sub Grid2Excel(gridName As MSHFlexGrid)



  Dim exc As Excel.Application

    Set exc = CreateObject("Excel.Application")

    exc.Workbooks.Add

    exc.Visible = True





    With gridName





        For i = 0 To .Rows - 1





            For j = 1 To .Cols - 1

                exc.Cells(i + 1, j) = .TextMatrix(i, j)

                exc.Cells(i + 1, j).Borders.LineStyle = xlDouble

                exc.Cells(i + 1, j).Borders.Color = vbBlue

            Next j



        Next i



        exc.Range("A1:" & Chr(65 + j) & 1).Font.Bold = True

        exc.Columns("$A:" & "$" & Chr(65 + j)).AutoFit

    End With



End Sub