Aug 22
En este ejemplo veremos como podemos realizar cálculos en Excel a través de automatización.
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
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
