de Msflexgrig a Exel

[Avellaneda]

Mira este procedimiento:

Código:

Private Sub GridAExcel(Grid As MSFlexGrid)
Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
    
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
Screen.MousePointer = vbHourglass
With Grid
    For i = 0 To .Rows - 1
        For j = 1 To .Cols - 1
            oExcel.Cells(i + 1, j) = .TextMatrix(i, j)
        Next j
    Next i
End With
Screen.MousePointer = vbDefault
oExcel.Visible = True
End Sub

Para llamarlo le pasas como parámetro el nombre del FlexGrid:

Código:

GridAExcel MSFlexGrid1

Nota: Para que esto funcione, tienes que añadir la referencia de la Librería de Objetos de Excel