MshflexGrid a Excel Ayuda!!

[numita01]

a ver prueba con este codigo:

Sub GridAExcel(grid As MSFlexGrid)

Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
Screen.MousePointer = vbHourglass
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
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
oExcel.Visible = True
Screen.MousePointer = vbDefault


luego solo lo llamas GridAExcel nombredetu grid