Como copiar de un flexgrid a excel?

[vpino]

Hola señores. una ayudita porfa. necesito toma el contenido de un msflexgri y paegarlo en una hoja de excel, he intentado marcar el un rango de celdas del flexgrid pero no se activa ninguna opcion al hacer clic derecho con el mouse.

si conocen algun metodo les voy agradecer muchisimo.

hasta pronto.

[kortiz]

Este es un procedimiento para copiar de un Flexgrid a excel

Private Sub GeneroArchivoExcel()
Dim objExcel As Object
Dim objLibro As Object
Set objExcel = CreateObject("Excel.Application")
Set objLibro = objExcel.Workbooks.Add(App.Path & "\Grilla.xls")

Dim F As Integer, K As Integer

With objLibro
With .Sheets(1)
For F = 0 To hfxLis.Rows - 1
For K = 0 To hfxLis.Cols - 1
.Cells(F + 1, K + 1) = hfxLis.TextMatrix(F, K)
Next
Next
End With
End With

objExcel.Visible = True
Set objLibro = Nothing
Set objExcel = Nothing

End Sub

[vpino]

Kortiz: era justo lo que necesitaba, me funciono de maravillas, mil , mil y mil gracias por tanta ayuda.

solo fue crear el archivo en excel, cambie el nombre del msflexgrid y todo salio perfecto.

[krnes]

de fabula para que inventar la rueda si ya existe
Gracias Mil, que la fuerza te acompañe.