EXPORTER UN DATASET DANS UNE FEUILLE DE CALCUL OPENOFFICE

Commentaire de beckerich le 19/11/2007 08:13:20

Bonjour DelphiProg,
merci pour le commentaire. Il y a sûrement moyen d'écrire cela d'une manière plus efficace. Le problème est que je suis restaurateur, passionné de programmation, si si c'est compatible... Je n'ai pas vraiment le temps d'affiner mes programmes. J'ai écrit mon programme de gestion du restaurant sur une base interbase, et je veux ne plus avoir à utiliser m$office, pas envie de payer.
Pour compléter un peu, voici le code pour créer soit un document nouveau, soit un document à partir d'un modèle :

[code]
const
  CS_OPENOFFICE = 'com.sun.star.ServiceManager';
  CS_DESKTOP    = 'com.sun.star.frame.Desktop';
  CS_TABLEUR    = 'private:factory/scalc';
  CS_BLANK      = '_blank';
  CS_EDITEUR    = 'private:factory/swriter';

//swriter pour le traitement de texte.
//scalc pour le tableur
//sdraw pour l'éditeur de dessin
//simpress pour l'éditeur de présentation (équivalent de PowerPoint)
//smath pour l'éditeur de formule mathématique
//swriter/Global Document document maitre
//swriter/web Pour l'éditeur HTML

procedure CreerNouveauDocOO(var NouveauClasseur: Variant; var Instance: variant;
                              s_type: string; s_modele: string = '' );
const
  pr= 'file:///';
begin
  { document vide de type indiqué }
  if Length(s_modele) = 0 then
  begin
    NouveauClasseur := CreeDesktopOO(Instance).LoadComponentFromURL(s_type, CS_BLANK, 0, VarArrayCreate([0, -1], varVariant));
  end
  else
  begin
    if FileExists(s_modele) then
    begin
      OOoTools.OpenOffice := Instance;
      { OpenOffice gère les chemins de fichier sous la forme d'URL, il faut donc transformer les chemins de type c:\rep\toto.pas en file:///rep/toto.pas }
      NouveauClasseur := CreeDesktopOO(Instance).LoadComponentFromURL(pr+StringReplace(s_modele , '\', '/',[rfReplaceAll]),
                                  CS_BLANK, 0,
                                  VarArrayOf([MakePropertyValue('AsTemplate', True)]));
    end
    else
      Exception.CreateFmt('Le modèle de fichier %s n''existe pas.', [s_modele]);
  end;
end;
[/code]