Generar una hoja de calculo en formato calc (openoffice)

[Mario Escudero]

Con el siguiente codigo genero un hoja de calculo en excel; pero no se puede realizar en open office.... cual sería el comando para el open office.?

Gracias de antemano.

Saludos

#INCLUDE XLS.H

# define Linea 9

*tmpsheet = GetObject('','excel.sheet') 

tmpsheet = CREATEOBJECT('excel.Application') 

IF TYPE('tmpsheet')#'O'

WAIT CLEAR 

    =MESSAGEBOX("Imposible Realizar Exportación Porque No Se Tiene la aplicación"+CHR(13)+;

"Microsoft Excel instalada en su computador.", 16, THISFORM.Caption )

RETURN .F.

ENDIF

XLApp = tmpsheet.application

*XLApp.ActiveWindow.DisplayZeros = .f. && No muestra las celdas en valor 0

*XLApp.ActiveWindow.DisplayGridlines = .f. &&No muestra las líneas de división

XLApp.Visible = .F.   && VISUALIZO EXCEL .T. NO .F.

XLApp.WorkBooks.Add() &&Agrega una Hoja de calculo

*Luego de agregar una hoja de calculo creamos una referencia a esta

XLSheet = XLApp.ActiveSheet 

*===Manipulacion de la hoja de calculo

*Para combinar celdas podemos especificar un rango de celdas  asi

XLSheet.Range("A3:V3").Merge 

[Carlos Alfaro]

Algunos amigos del foro, compartieron estos links:

 

http://www.tedroche.com/Present/2004/VFPOOoAutomation.htm

 

http://www.portalfox.com/index.php?name=News&file=article&sid=2518

 

Buen día.

 

Carlos Alfaro

[Alejandro Isla]

Basándome en la clase del francés J. MAURICE, hice una inconclusa traducción de las funciones y variables al español para que sean más comprensibles.

Desde ya aclaro que desconozco totalmente el idioma francés, por lo que la traducción fue vía google y sui generis. 

He usado la clase y me ha resultado de mucha utilidad.

Saludos, Alejandro