exportar un flexgrid hacia excel

[cocoman501]

hol estimados amigos, me gustaria me ayuden an la parte del codigo para poder exportar datos de un flexgrid hacia un archivo de excel....

gracias de antemano

[Avellaneda]

Código:

Private Sub GridAExcel(grid As MSFlexGrid)
Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
Screen.MousePointer = vbHourglass
 
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
With grid
    For i = 0 To .Rows - 1
        For j = 1 To .Cols - 1
            oExcel.Cells(i + 1, j) = .TextMatrix(i, j)
        Next j
    Next i
End With
oExcel.Visible = True
Screen.MousePointer = vbDefault
End Sub

Para llamar al procedimiento le pones como parámetro el nombre del Grid

[cocoman501]

al ejecutar el procedimiento me vota el sgte error:


Error de compilacion:
No se ha definido el tipo definido x el usuario.

a q se debe eso ????

[Avellaneda]

Olvidé mencionar que tienes que marcar una referencia a Excel

En el menú Proyecto -> Referencias y busca "Microsoft Excel <la version que tengas> Object Library"

[cocoman501]

ya tengo agregado la referencia
"MIcrosoft excel 11.0 object library"

pero = al ejecutar se sigue saliendo el mismo error

[seba123neo]

Hola,coco probate este ejemplo:

Exportar un Flexgrid a Excel

saludos.

[cocoman501]

see mi estimado amigo ya probe ese ejemplo
pero = me bota el sgte el mismo error.

me puedes decir a q se debe eso????

o acaso tengo q declarar la funcion de exportar

[seba123neo]

a mi no me tira error,y no se a que te referis diciendo que la tenes que declarar?

[Avellaneda]

Concretamente, ¿en qué línea del código te vota el error?