Exportar de Visual Basic a Excel

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 IfEnd SubPublic 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 = TrueExit Function ' -- Controlador de ErroresError_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, vbCriticalEnd 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 = NothingEnd Sub* itGrid puede ser reemplazado por FlexGridAquí está el Código Completo usando un MsFlexGrid espero les sirva.