FoxPro/Visual FoxPro - actualizar celdas de Excel desde vfox, asi lo hice

 
Vista:

actualizar celdas de Excel desde vfox, asi lo hice

Publicado por juan Ayala (78 intervenciones) el 23/04/2008 16:29:38
Espero le sea de utilidad...

Esta rutina actualiza celdas de una planilla excel ubicado en c:planilla.xls,
para que esto sea posible la planilla excel no debe estar activo.
para este caso, actualiza las series de la linea 2 b2,c2,d2,e2....

Esto lo realice porque en planilla.xls tenia un grafico que segun los valores enviado actualizaba el grafico, el grafico lo hice manualmente porque los colores eran de mucha importancia, y no logre automatizarlo desde vfox., pero deseo compartir la solución encontrada, para quien lo necesite

lcplanilla='c:planilla.xls'
*
loExcel=CREATEOBJECT("Excel.application")
WITH loExcel.APPLICATION
*
.VISIBLE = .t. && oculto el trabajo en la aplicacion Excel
owork=.workbooks.OPEN(lcPlanilla)
oSheet=oWork.ActiveSheet
oSheet.Cells(2,2).Value = thisformset.maestro.V09.VALUE
oSheet.Cells(2,3).Value = thisformset.maestro.V10.VALUE
oSheet.Cells(2,4).Value = thisformset.maestro.V11.VALUE
oSheet.Cells(2,5).Value = thisformset.maestro.V12.VALUE
oSheet.Cells(2,6).Value = thisformset.maestro.V13.VALUE
oSheet.Cells(2,7).Value = thisformset.maestro.V14.VALUE
oSheet.Cells(2,8).Value = thisformset.maestro.V15.VALUE
oSheet.Cells(2,9).Value = thisformset.maestro.V16.VALUE
oSheet.Cells(2,10).Value = thisformset.maestro.V17.VALUE
oSheet.Cells(2,11).Value = thisformset.maestro.V18.VALUE
oSheet.Cells(2,12).Value = thisformset.maestro.V21.VALUE


*
.VISIBLE = .F.
.ActiveWorkbook.SAVE
.workbooks.CLOSE
*
ENDWITH
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:actualizar celdas de Excel desde vfox, asi lo h

Publicado por Juan Carlos Lopez Lopez (128 intervenciones) el 01/05/2008 02:38:56
Hola Tocayo:

Esta buena tu ayuda, me sirvio.

saludos
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