Discussion :

[Maglight]

Je fais de l'export vers Excel et je cherche comment faire pour faire la même chose vers OpenOffice Calc.
Ma Syntaxe pour excel est du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
XLApplication := CreateOleObject('Excel.Application');
XLApplication.Workbooks.Add(xlWorkSheet);
XLApplication.Workbooks[1].Worksheets[1].Name := 'Exportation';
Sheet := XLApplication.Workbooks[1].WorkSheets['Exportation'];

ou Sheet , XLApplication :Variant
J'ai trouvé à priori qu'il faut utiliser "com.sun.star.serviceManager" mais après cela se complique.
Merci d'avance car je sèche pas mal

[Linkin]

http://delphi.developpez.com/faq/?page=openoffice ?

[Maglight]

Merci pour le lien mais j'ai des problèmes et je n'arrive pas à créer mon document OpenOffice (je veux créer un document ODS afin d'un mettre le contenu d'une grille pour faire un export de mes données - je travaille sous Delphi6 Windows XP).
Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
   OpenOffice : Variant;
   Document  : Variant;
   OpenDesktop: Variant;
   LoadParams: Variant;
begin
   Showmessage('Export - Début');
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   Document := openDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', 0, LoadParams);
   Showmessage('Export - Fin');
end;

La compilation se passe bien mais lorsque j'arrive sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');

j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Opération de variant incorrecte

merci de votre aide.

[SergioMaster]

si tu regardes la FAQ, au niveau de l'ouverture d'un document, tu remarqueras que OpenOffice n'est pas déclaré comme Variant , contrairement à ton code.

pour etre plus exact c'est bien un variant , mais crée avant (connection à OpenOffice)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Var
   OpenOffice : Variant;
Begin
    if  VarIsEmpty(OpenOffice) then
        OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
end;

[Maglight]

Merci beaucoup de m'avoir confirmé mon code.
Je réussi désormais à ouvrir l'application Calc.
Il ne me reste plus qu'à le remplir.
Merci encore.