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
| |||
exportar un flexgrid hacia excel 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 |
| |||
Re: exportar un flexgrid hacia excel
Código:
Para llamar al procedimiento le pones como parámetro el nombre del Grid 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 |
| |||
Re: exportar un flexgrid hacia excel 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" |
| |||
Re: exportar un flexgrid hacia excel 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 |