Office Automation/es

│ Deutsch (de) │ English (en) │ español (es) │ français (fr) │ italiano (it) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │

   La capacidad de interactuar con los programas ofimáticos y así generar hojas de cálculo, documentos de texto y presentaciones desde nuestro código puede ser muy valiosa en la oficina, y ahorrar mucho tiempo a aquellos que hagan. Un ejemplo es la creación de aplicaciones que pueden leer archivos en un formato arbitrario y guardar la salida en un archivo de Excel, una tarea mucho más eficiente de hacer con el código a continuación expuesto que de forma manual.

Utilizando UNO Bridge de OpenOffice

   OpenOffice tiene enlaces para lenguaje como C, Java, JavaScript y Python. En Windows, OpenOffice también puede ser manipulado en Pascal a través de automatización COM (véase más adelante), pero actualmente no una forma sencilla de usar OpenOffice UNO (Universal Network Objects -Objetos Universales de Red-) desde Pascal en OS X y Linux. Si estás interesado en el desarrollo de un puente entre OO y Pascal, por favor mira estos enlaces para más información (precaución: estos enlaces son muy técnicos al estilo SUN):

api.openoffice.org

About_Bridges

Ver también el tema más abajo sobre Python.

Usar automatización COM para interactuar con OpenOffice y Microsoft Office

   La automatización COM es exclusiva de Windows, asíq que lso ejemplos que siguen no funcionan ni en OS X ni en Linux. Para estas plataformas ver Prescindiendo de la automatización COM de Windows. Si sólo necesita crear y/o ver un documento de texto desde su programa, da un vistazo al XDev Toolkit.

   Este es una ejemplo sencillo de cómo abrir un documento con tu programa utilizando el servidor de automatización de OpenOffice. Recuerda que esto sólo funciona en Windows.

<delphi> program PruebaOpenOffice;

{$IFDEF FPC}
 {$MODE Delphi}
{$ELSE}
 {$APPTYPE CONSOLE}
{$ENDIF} 

uses
  SysUtils, Variants, ComObj;

const
  NombreServidor = 'com.sun.star.ServiceManager';
var          
  Servidor     : Variant;
  Escritorio    : Variant;
  ParametrosCarga : Variant;
  Documento   : Variant;
  CursorTexto : Variant;
begin
  if Assigned(InitProc) then
    TProcedure(InitProc);

  try
    Servidor := CreateOleObject(NombreServidor);
  except
    WriteLn('No puedo arrancar OpenOffice.');
    Exit;
  end;

  Escritorio := Servidor.CreateInstance('com.sun.star.frame.Desktop');

  ParametrosCarga := VarArrayCreate([0, -1], varVariant);

   {Crear un documento nuevo}
  Documento := Escritorio.LoadComponentFromURL('private:factory/swriter',
                                          '_blank', 0, ParametrosCarga);

 CursorTexto := Documento.Text.CreateTextCursor;

  {Insertarun documento existente}  //Substituye por tu ruta y documento
 CursorTexto.InsertDocumentFromURL('file:///C|/mi/ruta/midocumento.doc',  
                                  ParametrosCarga);
end.</delphi>

   Y aquí un ejemplo sencillo de cómo abrir un documento con tu programa usando el servidor de automatización de Word. Ten en cuenta que este ejemplo sólo funciona en Windows y sólo cuando se compila con Delphi; Free Pascal 2.2.2 compila el código, pero no funciona. Por favor. Comprueba más adelante o prueba con una versión más reciente de FPC.

<delphi> program PruebaMsOffice;

{$IFDEF FPC}
 {$MODE Delphi}
{$ELSE}
 {$APPTYPE CONSOLE}
{$ENDIF} 

uses
  SysUtils, Variants, ComObj;

const
   NombreServidor = 'Word.Application';
var
   Servidor    : Variant;
begin
  if Assigned(InitProc) then
    TProcedure(InitProc);

  try
    Servidor := CreateOleObject(NombreServidor);
  except
    WriteLn('No puedo arrancar M$Word.');
   Exit;
 end;

  {Abrir un documento existente}  //Substituye por tu ruta y documento
 Servidor.Documents.Open('c:\mi\ruta\midocumento.doc'); 

 Servidor.Visible := True;  {Hacer Word visible}

end.</delphi>

Utilizar Python para manipular a OpenOffice

   Dado que OpenOffice incluye soporte para Python, sería posible ejecutar secuencias de comandos de Python desde Pascal para manipular OO, en lugar de un enlace real para lenguaje Pascal. Éstos son los pasos para un posible enfoque para realizarlo:

1. Probar que UNO vía macro de Python funciona dentro de OO
2. Probar que UNO vía macro de Python independiente
3. Crear el soporte para correr macros de Python en Pascal
4. Probar que UNO vía macro de Python funciona con Pascal
5. Crear una clase Pascal para envolver Python UNO

   Nota: Las siguiente macros han sido probadas con OpenOffice 2.3.1 en Windows XP y NeoOffice 2.2.5 Patch 6 en Mac OS X 10.4.11 (PowerPC).

Paso 1. Probar que UNO vía macro de Python funciona dentro de OO

   OpenOffice tiene herramientas para crear macros de JavaScript, pero no las macros Python, por lo que utilizaremos el editor de texto para guardar la secuencia de comandos siguiente para el archivo prueba_macro.py y colocarlo en la carpeta de macros OO del usuario. En Windows, esta carpeta es:

 C:\Document and Setting\<NombreUsuario>\Application Data\OpenOffice.org2\user\Scripts\python\Library1

   En Mac OS X, la carpeta es:

 ~/Library/Preferences/NeoOffice-2.2/usuario/Scripts/python/Library1

   En ambas plataformas es necesario crear la carpeta python/Library1.

   Este es el código para prueba_macro.py, adaptado del ejemplo OO Pascal anterior:

<delphi> # Macro Python que prueba UNO creando un nuevo documento e inserta en el algo de texto.

import uno

def PruebaNuevoDoc():
  ctx = uno.getComponentContext()
  smgr = ctx.ServiceManager
  escritorio = smgr.createInstance('com.sun.star.frame.Desktop')
  doc = escritorio.loadComponentFromURL('private:factory/swriter', '_blank', 0, ())
  textoCursor = doc.Text.createTextCursor()
  doc.Text.insertString(textoCursor, 'Hola Mundo', 0)

</delphi>

   En OO, seleccionar Herramientas | Macros | Organizar Macros | Python... y ejecuta la macro para comprobar que funciona.

Paso 2. Probar que UNO vía macro de Python independiente

   Aquí el código para una macro independiente:

<delphi> # Macro Python que prueba UNO creando un nuevo documento e inserta en el algo de texto.

import sys

if sys.platform == 'darwin':
  sys.path.append('/Applications/NeoOffice.app/Contents/MacOS')

import officehelper

ctx = officehelper.bootstrap()
smgr = ctx.ServiceManager
escritorio = smgr.createInstance('com.sun.star.frame.Desktop')
doc = escritorio.loadComponentFromURL('private:factory/swriter', '_blank', 0, ())
textoCursor = doc.Text.createTextCursor()
doc.Text.insertString(textoCursor, 'Hola Mundo', 0)
</delphi>

   Guarda el archivo prueba.py y ajecutala desde la línea de órdenes de Windows. Nota: En Windows y Linux, usa la versión de Python incluida con OO; en Mac OS X, usa la versión Python 2.3. del sistema.

 "\program files\openoffice.org 2.3\program\python" test.py

   En Mac OS X, corre la macro en una ventana de Terminal así:

 #!/bin/sh
 export DYLD_LIBRARY_PATH=$DYLD_LIBRARY_PATH":/Applications/NeoOffice.app/Contents/MacOS"
 python2.3 test.py

   Desafortunadamente, esta macro no funciona bien en Windows o Mac OS X. En Windows, se muestra un diálogo de error sin texto (¡!) Y luego escribe un mensaje de error en la consola que dice "No se puede conectar a un servidor soffice". En Mac OS X, se inicia NeoOffice y crea el nuevo documento, a continuación, NeoOffice se cierra abruptamente.

UNO Python Cosas po Hacer (ToDo)

   Obviamente se necesita investigación adicional antes de proceder al paso 3. Te invitamos a trabajar en ello. Éstas son un par de cosas para probar:

• Test on Linux
• Test on more recent versions of OpenOffice

• Enero. 5, 2009: Resultadoss de probar OpenOffice 3 en Windows:
  • OO 3.0.0 suporte par macros Python de usuario roto (paso 1); arreglado en OO 3.0.1 RC1.
  • Paso 2 el diálogo vacío ya no se muestra y el el mensaje de error de la consola es diferente, pero OO sigue sin arrancar.
  • Ten en cuenta que las rutas a diferentes partes de OO y de las macros de usuario han cambiado con OO 3.

---

Using the Free Pascal Spreadsheet Library

Another way to automate repetitive work with spreadsheets is to use the FPSpreadsheet library. It can read and write spreadsheets in several formats and it doesn't require having any external application installed on the machine.

Writing an Excel file using ADO

please write me.

Read/Writing an Excel file using the Excel Interface Component

The component is available here: http://tcoq.free.fr/composants.html

Since Automation is not yet available, but COM is available, the Excel interface component provides a set of Lazarus classes encapsulating calls to the Excel COM interface (the one below the Automation). It hides most of the drudgery of working with low-level code.

Functionality:

- creating and loading excel workbooks,

- saving workbooks,

- creating and accessing sheets,

- getting values and setting values (and formulas) in cells,

- getting and changing color of cells,

- getting and changing column height and row width,

- creating comments,

- creating shapes,

- creating charts.

Getting a sheet is simple:

 // Initializing the common excel workbook:
 ExcelApp := TExcelApplication.Create(nil);
 ExcelApp.Active := True;
 ExcelApp.Visible := True;
 ExcelWbs := ExcelApp.WorkBooks;
 ExcelWb := ExcelWbs.Open( TestFileName)
 ExcelSheets := ExcelWb.Sheets;
 ExcelSheet1 := ExcelSheets.Sheet('Sheet1');

Playing around with cells is simple too:

 // adding a value
 aCell := aSheet.Cells(1, 1);
 aCell.Value := 10;

 // adding a formula
 aCell := aSheet.Cells(2,1);
 aCell.Formula := '=A1+10';

 // getting the value computed in Excel
 aValue := aCell.Value;

The test case provided has many more examples.

Enlaces externos

• Descripción del formato de fichero Excel en el sitio web de OpenOffice

---

Traducido por Iskraelectrica