open officeRésolu

Question

bonjour
voila avec delphi 7 , j'essaye d'ouvrir un fichier .cvs avec oppen office et j'ai un message d'erreur : Methode 'LoadcomponentFromURL' non suopportée par l'objet Automation'

pourtant j'ai ete voir l'exemple sur le FAQ d'open office  :

  var    OpenDesktop : Variant;
                   LoadParams : Variant;
                   OpenOffice : Variant;
                   Document  : Variant;
                   nom:string;
begin
  nom := 'c:	emp\fichier.csv';
   if  VarIsEmpty(OpenOffice) then
        OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   nom2 := 'file:///' + StringReplace(nom, '\', '/', [rfReplaceAll, rfIgnoreCase]);
   Document := OpenOffice.LoadComponentFromURL( nom2, '_blank', 0,  LoadParams);
end;
/code
le message d'erreur est sur la ligne de document := .... et j'ai verifié open office etait bien connecter

merci d'avance

cs_cantador · Accepted Answer

Il faut trouver une solution de rechange en attendant..
Utilise le format XLS qui est reconnu par OpenOffice.

bon courage

cantador

cs_cantador · Answer

bonjour titiyo,


il faut tester tous les paramètres à moins que tu ne l'ai déjà fait..

cantador

cs_titiyo · Answer

oui pour moi j'ai tester mais comme c'est la premiere fois que j'utilse open office , (pas pb avec excel) , je galere un peut

cs_titiyo · Answer

bonjour voila quelque precision j'ai une base mysql , et j'ai exporter au format .txt , une table ,
avec comme separateur ";", le pb c'est que je voudrait ouvrir open
office calc , en ayant charger , mon fichier dedans , j'ai essaye de
l'enregistre au format , .xls,ods,sxc au lieu de .txt, mais open office
ne me l'ouvre pas 
(pourtant le fichier existe et open office est bien connecté). j'ai
voulait sinon ouvrir calc a blanc et charger mon fichier en disant que
le separateur est le ; pour chaque collone, mais la je ne voit pas quel
fonction je peut utiliser ?


ps : avec excel , pas de pb j'ai enregistre mon fichier au format .csv et excel ouvre bien mon fichier


merci d'avance

cs_cantador · Answer

j'ai un souci à peu près équivalent avec un export..Le souci est que certains séparateurs se mettent par défaut..et avec le csv OpenOffice ne supporte QUE le ';'.
Il faut donc te débrouiller pour vider les autres paramètres..
@+
cantador

cs_titiyo · Answer

oui c'est pour cela que j'ai mis en separateur le ; dans mon txt , car sinon j'ai une solution mais c'est tres contrainiant (temp) c'est de relire le fichier ligne par ligne et des que j'ai un ; je change de cellule . je pensait qu'il y avait un moyen + simple, style loadfromfile en disant separateur ;

cs_cantador · Answer

essaie cette syntaxe, sinon j'avoue que c'est un peu galère avec OpenOffice..

Document := openDesktop.LoadComponentFromURL( 'file:///'+NomFichier, '_blank', 0,  LoadParams);







cantador

cs_titiyo · Answer

bas j'ai essayer la syntax mais si open office ne comprend pas le fichier , il ouvre rien , c'est comme ci il ne marchait pas mais tu voit qu'il a connecter open office mais c'est tout

gmessag · Answer

var    OpenDesktop : Variant;
                   LoadParams : Variant;
                   OpenOffice : Variant;
                   Document  : Variant;
                   nom:string;
begin
  nom := 'c:	emp\fichier.csv';
   if  VarIsEmpty(OpenOffice) then
        OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   nom2 := 'file:///' + StringReplace(nom, '\', '/', [rfReplaceAll, rfIgnoreCase]);
   Document := OpenDesktop.LoadComponentFromURL( nom2, '_blank', 0,  LoadParams);
end;
/code

Ton Code marchera surement mieux comme ça !!!

Open office

9 réponses

Votre réponse

Discussions similaires