FoxPro/Visual FoxPro - Sumas en Excel desde Fox

   
Vista:

Sumas en Excel desde Fox

Publicado por Salvador Angeles (21 intervenciones) el 08/11/2010 16:23:16
Buenos dias, alguien me podria decir como hago una suma de un rango de celdas de Excel desde FoxPro ?

De antemano Gracias.
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:Sumas en Excel desde Fox

Publicado por cesar (63 intervenciones) el 08/11/2010 17:14:00
Hola Salvador,
Te envio el codigo para que puedas hacer la suma de un rango de celdas de Excel.

&& Seleciono la Tabla
SELE sumatoria

&& Estas dos lineas las utilizo para determinar el numero de la ultima linea donde se va a efectuar la sumatoria.
lastrec=recc()+3
lastcellNumber=lastrec+1

&& Asigno el nombre de la hoja Excel a una variable de trabajo
cFileName = "sumatoria.xls"

&& Convierto la tabla a Excel
COPY to 'sumatoria' fields fecha,cliente,metodo,paquetes type xl5

&& Crea el objeto excel
oExcel = CreateObject("Excel.Application")

&& Abre la hoja de calaculo
oWorkbook = oExcel.Workbooks.Open(cFileName)

&& Insertar el titulo "Totales" en una a celda
oExcel.ActiveSheet.Range(lastcell).value="T O T A L E S =>"

&& Poner en negrita el Titulo "Totales"
WITH oExcel.Range(lastcell).Font

.Name = "Arial"
.Bold = .T.

ENDWITH

&& Suma un rango de Celdas
lastcell="D"+alltrim(str(lastcellNumber))
oExcel.ActiveSheet.Range(lastcell).select && Se posiciona en la celda donde va realizar la suma.
oExcel.ActiveSheet.Range(lastcell).Formula = "=SUM(D4:D" + alltrim(str(lastrec)) + ")"

&& Poner en negrita la sumatoria
WITH oExcel.Range(lastcell).Font

.Name = "Arial"
.Bold = .T.

ENDWITH

&& Hace visible la hoja de calculo.
oExcel.Visible = .T.

&& Borra el objeto oExcel
Release oExcel

Pruebalo y me cuentas.
Saludos desde Peru,
Cesar
cadiezcanseco@yahoo.com
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

RE:Sumas en Excel desde Fox

Publicado por Salvador Angeles (21 intervenciones) el 09/11/2010 17:08:22
Quedo perfecto ! Mi Estimado Cesar, Te le agradezco Mucho.
Saludos desde Mexico
salang.ang@gmail.com
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

RE:Sumas en Excel desde Fox

Publicado por Salvador Angeles (21 intervenciones) el 09/11/2010 18:51:20
Mi estimado Cesar, abusando de tu confianza, sabes como pasar de un libro a otro desde Fox?
por ejemplo de Hoja1 a Hoja3
Gracias de Antemano.
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