Hola, este código exporta de un MSFlexgrid o itGrid de Visual Basic 6 a Excel...lo genera como un archivo de Excel 2003, el código de abajo está personalizado para usarlo con el control ItGrid, y el botón que lo ejecuta; más abajo está el link dónde está el ejemplo completo para usarlo con un MsFlexGrid.

Espero les sea útil, a mí me sirvió.



Private Sub CmdExportar_Click()
If Exportar_Excel(App.Path & "Reporte.xls", NOMBRE DEL ITGRID) Then
MsgBox " Datos exportados en " & App.Path, vbInformation
End If
End Sub

Public Function Exportar_Excel(sOutputPath As String, itGrid As Object) As Boolean

On Error GoTo Error_Handler

Dim o_Excel As Object
Dim o_Libro As Object
Dim o_Hoja As Object
Dim Fila As Long
Dim Columna As Long

' -- Crea el objeto Excel, el objeto workBook y el objeto sheet
Set o_Excel = CreateObject("Excel.Application"
Set o_Libro = o_Excel.Workbooks.Add
Set o_Hoja = o_Libro.Worksheets.Add

' -- Bucle para Exportar los datos
With itGrid
For Fila = 1 To .Rows - 1
For Columna = 0 To .Cols - 1
o_Hoja.Cells(Fila, Columna + 1).Value = .TextMatrix(Fila, Columna)
Next
Next
End With
o_Libro.Close True, sOutputPath
' -- Cerrar Excel
o_Excel.Quit
' -- Terminar instancias
Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
Exportar_Excel = True
Exit Function

' -- Controlador de Errores
Error_Handler:
' -- Cierra la hoja y el la aplicación Excel
If Not o_Libro Is Nothing Then: o_Libro.Close False
If Not o_Excel Is Nothing Then: o_Excel.Quit
Call ReleaseObjects(o_Excel, o_Libro, o_Hoja)
If Err.Number <> 1004 Then MsgBox Err.Description, vbCritical
End Function
' -------------------------------------------------------------------
' \ -- Eliminar objetos para liberar recursos
' -------------------------------------------------------------------
Private Sub ReleaseObjects(o_Excel As Object, o_Libro As Object, o_Hoja As Object)
If Not o_Excel Is Nothing Then Set o_Excel = Nothing
If Not o_Libro Is Nothing Then Set o_Libro = Nothing
If Not o_Hoja Is Nothing Then Set o_Hoja = Nothing
End Sub




* itGrid puede ser reemplazado por FlexGrid

Aquí está el Código Completo usando un MsFlexGrid espero les sirva.