FoxPro/Visual FoxPro - Cambiar cabecera de columna excel

   
Vista:

Cambiar cabecera de columna excel

Publicado por TITO (311 intervenciones) el 19/10/2007 00:43:04
Amigos:
Necesito abrir una archivo excel EXISTENTE y cambiarle la cabecera o titulo de ALGUNAS o todas las columnas. Luego grabar (guardar) la planilla excel con estas modificaciones.
Me puede alguien enviarme el codigo de esta tarea o las indicaciones de como hacerlo ?
Gracias
TITO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar cabecera de columna excel

Publicado por Ernesto Hernandez (4632 intervenciones) el 19/10/2007 01:02:52
prueba esto

LOCAL liRowIndex, liColumnIndex, lcAlias
lcCursor = ALIAS() && table or cursor name
SELECT ( lcCursor )
loExcelSession = CREATEOBJECT('Excel.Application')
WITH loExcelSession
.Visible = .T.
.DisplayAlerts = .F. && no messages displayed
.SheetsInNewWorkBook = 1
.Workbooks.ADD()
FOR liRowIndex = 1 TO RECCOUNT() && records
FOR liColumnIndex = 1 TO FCOUNT() && fields
.ActiveSheet.cells( liRowIndex,liColumnIndex ).VALUE = EVAL( FIELD(liColumnIndex) )
ENDFOR
SKIP && get the next record
IF EOF()
EXIT
ENDIF
ENDFOR
ENDWITH
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar