Manolillo
28 de Febrero del 2006

Hola, necesito pasar un flexgrid a una hoja excel de forma que el usuario lo pueda guardar, imprimir... en ese formato. Gracias.

ISCORR
28 de Febrero del 2006

Mi hermano! este codigo es facil y sutil... en el solo pasaras lo que en el momento tengas en el MSFlex y te dara el encabezado de las Columnas... es sencillo espero te sirva:
Private Sub Cmd_Exportar_Click()
Dim I, C As Integer
Dim aPeXCEL As Variant
Set aPeXCEL = CreateObject("Excel.application")
aPeXCEL.Visible = True
aPeXCEL.WorKbooks.Add
With MSFlex
For I = 0 To .Rows - 1
.Row = I
For C = 0 To .Cols - 1
.Col = C
aPeXCEL.cells(I + 1, C + 1).formula = .Text
Next C
Next I
End With
Set aPeXCEL = Nothing
End Sub

violeta01
28 de Febrero del 2006

mira lo que yo hice es crear una base de datos temporal en la que incerto todo lo que se presenta en el flexgrid y desde la base de datos lo paso a excel si esto te sirbe escribeme y te paso el codigo ok