hola otra vez!
Despues de mirarme el codigo comentado no soy capaz de encontrar como exportar tambien las cabeceras del MSFlexgrid.
¿Podriais ayudarme? la parte del codigo de carga es esta.:
Código vb:
Ver originalPublic Function Exportar_Excel(sBookFileName As String, FlexGrid As Object, Optional sNameSheet As String = vbNullString) 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
' -- Error en la ruta del libro
If sBookFileName = vbNullString Or Len(Dir(sBookFileName)) = 0 Then
MsgBox " Falta el Path del archivo de Excel o no se ha encontrado el libro en la ruta especificada ", vbCritical
Exit Function
End If
' -- Crea el objeto Excel, el objeto workBook y el objeto sheet
Set o_Excel = CreateObject("Excel.Application")
Set o_Libro = o_Excel.Workbooks.open(sBookFileName)
' -- Comprobar si se abre la hoja por defecto, o la indicada en el parámetro de la función
If Len(sNameSheet) = 0 Then
Set o_Hoja = o_Libro.Worksheets(1)
Else
Set o_Hoja = o_Libro.Worksheets(sNameSheet)
End If
' -- Bucle para Exportar los datos
With FlexGrid
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
' -- Cerrar libro y guardar los datos
o_Libro.Close True
' -- 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)
MsgBox Err.Description, vbCritical
End Function
Muchas gracias
Un saludo