FoxPro/Visual FoxPro - Automatización en Excel

 
Vista:

Automatización en Excel

Publicado por Luis Fernando López Duque (6 intervenciones) el 07/06/2007 19:51:31
Hola buenas tardes. Desearía saber alguna(s) dirección(es) en la red donde se indique bien como formatear celdas (tipo de letra, anchos de columnas, bordes superior-izq-der-inf, crear macros, etc) en excel desde visual foxpro.

Expreso mis agradecimientos por la colaboración prestada.
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:Automatización en Excel

Publicado por juan fernando (537 intervenciones) el 09/06/2007 18:40:30
oExcel = Createobject("Excel.Application")
With oExcel
.Visible=.T.
.Workbooks.Add
.ActiveWorkbook.Sheets(1).Activate
.Cells(3,2) = 10
.Cells(4,2) = 26
.Cells(5,2) = 63
.Cells(6,2) = 42
.Cells(7,2) = 1
.Cells(9,1) = "Suma"
.Cells(9,2).FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
.Cells(10,1) = "Promedio"
.Cells(10,2).FormulaR1C1 = "=AVERAGE(R[-7]C:R[-2]C)"
.Cells(11,1) = "Máximo"
.Cells(11,2).FormulaR1C1 = "=MAX(R[-8]C:R[-3]C)"
.Cells(12,1) = "Mínimo"
.Cells(12,2).FormulaR1C1 = "=MIN(R[-9]C:R[-4]C)"
EndWith

*________________________________________________

oExcel = Createobject("Excel.Application")
With oExcel
.Visible=.T.
.Workbooks.Add
.ActiveWorkbook.Sheets(2).Activate
.Cells(1,1) = ActiveSheet.ShowDataForm

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