1 respuesta
Respuesta de alefmor
1
Si lo que quieres es vaciar los datos de un grid a una hoja de calculo pues tienes que hacer los siguiente:
Vamos a suponer que cargamos el grid con una tabla o cursor llamado curfec
* BUSCO UNA SESION DE EXCEL YA ACTIVA:
cErrores = ON("ERROR")
ON ERROR lExcel = .F.
oExcel = GetObject(,"excel.application")
* NO ESTABA ACTIVA. PREPARO UNA NUEVA SESION DE EXCEL:
IF TYPE("oExcel")="U"
oExcel = CREATEOBJECT("Excel.Application")
ENDIF
oExcel.VISIBLE = .T. && VISUALIZO EXCEL
oExcel.Workbooks.open("c:\cobranzas\resumencob.xls") && ABRO UN TRABAJO DE EXCEL
SELE (THISFORM.GRID1.RECORDSOURCE)
GO TOP
nRows = 3
oExcel.Cells(1,1) = TITULO
* EMPIEZO A CARGAR LA HOJA DE EXCEL LEYENDO LA ESTRUCTURA DEL GRID:
select curfec
go top
Rowfec=5
nreg=reccount('curfec')
FOR Colfec = 1 TO nreg
oExcel.Cells(nRows,Rowfec) = curfec.fecrep
if recno('curfec') < reccount('curfec') then
skip in curfec
Rowfec=Rowfec + 1
Endif
Endfor
Si te das cuenta con lo que verdaderamente cargo la hoja de excel es con la tabla o el cursor creado. Tienes que tener en cuenta que algunos parámetros puedes cambiarlo de acuerdo a la posición que requieres se ubiquen los datos en tu hoja de calculo. También puedes mezclar datos de más de una tabla o cursor. Cualquier interrogante no dudes en consultarme.
Vamos a suponer que cargamos el grid con una tabla o cursor llamado curfec
* BUSCO UNA SESION DE EXCEL YA ACTIVA:
cErrores = ON("ERROR")
ON ERROR lExcel = .F.
oExcel = GetObject(,"excel.application")
* NO ESTABA ACTIVA. PREPARO UNA NUEVA SESION DE EXCEL:
IF TYPE("oExcel")="U"
oExcel = CREATEOBJECT("Excel.Application")
ENDIF
oExcel.VISIBLE = .T. && VISUALIZO EXCEL
oExcel.Workbooks.open("c:\cobranzas\resumencob.xls") && ABRO UN TRABAJO DE EXCEL
SELE (THISFORM.GRID1.RECORDSOURCE)
GO TOP
nRows = 3
oExcel.Cells(1,1) = TITULO
* EMPIEZO A CARGAR LA HOJA DE EXCEL LEYENDO LA ESTRUCTURA DEL GRID:
select curfec
go top
Rowfec=5
nreg=reccount('curfec')
FOR Colfec = 1 TO nreg
oExcel.Cells(nRows,Rowfec) = curfec.fecrep
if recno('curfec') < reccount('curfec') then
skip in curfec
Rowfec=Rowfec + 1
Endif
Endfor
Si te das cuenta con lo que verdaderamente cargo la hoja de excel es con la tabla o el cursor creado. Tienes que tener en cuenta que algunos parámetros puedes cambiarlo de acuerdo a la posición que requieres se ubiquen los datos en tu hoja de calculo. También puedes mezclar datos de más de una tabla o cursor. Cualquier interrogante no dudes en consultarme.
