FoxPro/Visual FoxPro - Sumas en Excel desde Fox

Buenos dias, alguien me podria decir como hago una suma de un rango de celdas de Excel desde FoxPro ?

De antemano Gracias.

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
[email protected]

Quedo perfecto ! Mi Estimado Cesar, Te le agradezco Mucho.
Saludos desde Mexico
[email protected]

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.

Hola Cesar, como estas?

Estaba probando tu código y me encuentro con un error en la linea:

&& Insertar el titulo "Totales" en una a celda
oExcel.ActiveSheet.Range(lastcellNumber).value="TOTALES"

El error es: "ole error code 0x800a03ec unknown com status code"

Y no me deja avanzar, me podrías ayudar por favor a solucionarlo?

Desde ya muchas gracias.

1) Te metes en un hilo de 8 años. Sería raro que te respondan.

2) Siempre conviene acortar la referencia de objeto
3) Para escribr en una sola celda suele ser mejor utilizar Cells(lnRow , lnColumn)


4) Si necesitas transformar una letra de columna en su número de orden, puedes utilizar esta función: