Discussion :

[Papino]

Bon-soir...

Je souhaite ecrire des données ( rassemblées dans un tableau dynamique de string ), d'une part dans un TStringGrid, ce qui ne pose pas de problème, et d'autre part dans une feuille Excel.
J'ai utilisé le pilotage OLE de Excel ( http://lfe.developpez.com/PasExcel/ ) en "remplissant" chaque cellule par 2 boucles for:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
type
  TTab_data = array of array of string;
...
var
    xla, xlws, xlw  : variant;
...
begin
     vFileName := 'c:\temp\bil_mens.xlt' ;
     try
       xla := GetActiveOleObject('Excel.Application');
     except
       xla := CreateOleObject('Excel.Application');
     end;
     xla.Visible := False;
     xlws := xla.Workbooks;
     xlw := xlws.Open(vFileName);
     for colonne := 1 to c_max do
       for rangee := 1 to r_max do
         xla.Cells[rangee,colonne] := tab_data[colonne,rangee]

Le problème vient de la lenteur de l'écriture ( plus de 2 mn pour 70 lignes de 14 colonnes !!! )

J'ai pensé que je pourrais accélérer en écrivant directement le tableau dans une plage de cellules... mais n'ai pas trouvé la solution ( si elle existe ? )

Je me suis rabattu ( pour la premiére fois ) sur le composant TExcelApplication pour mettre en oeuvre cette solution, mais je n'arrive pas à y remplir la moindre cellule ( et a fortiori une plage ! )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TfTest.FormActivate(Sender: TObject);
var
  monclasseur : _workbook;
  mafeuille : _worksheet;
  rMaPlage  : ExcelRange;
begin
   ExcelApplication1.connect;
   MonClasseur:=ExcelApplication1.Workbooks.Open('C:\Temp\bil_mens.xlt',False,False,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
   ExcelApplication1.Visible[0] := True;
   MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
   MaFeuille.Range['E1','E3'].Value:= 12;
end;

m'envoie une erreur de compilation:

Erreur .... : '[' attendu(e) mais ':=' trouvé(e)

pour la ligne : MaFeuille.Range['E1','E3'].Value:= 12;

Par ailleurs 'ExcelApplication1.Workbooks.Open' m'a réclamé 2 paramétres de plus que dans l'exemple de bidou (http://delphi.developpez.com/faq/?page=exceldelphi)

J'utilise Delphi 7, Excel 2003, le paquet dclofficexp70 pour TExcelApplication, le tout sous Windows XP Pro.

Quelques suggestions ?

Merci d'avance

[anapurna]

salut

utilise plutot le copier coller dans ce cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Buffer := 'TEST'+ #9;
    Buffer := Buffer + GEtChamps(1)+ #9;
    Buffer := Buffer + GEtChamps(2)+ #9;
    Buffer := Buffer + GEtChamps(3)+ #9;
    Buffer := Buffer + GEtChamps(4)+ #9;
    Buffer := Buffer + GEtChamps(5)+ #9;
    Buffer := Buffer + GEtChamps(6)+ #9;
    Buffer := Buffer + GEtChamps(7)+ #9;
    Buffer := Buffer + GEtChamps(8)+ #9;
    Buffer := Buffer + GEtChamps(9)+ #9;
    Buffer := Buffer + GEtChamps(10)+ #9;
    Buffer := Buffer + GEtChamps(11)+ #9;
    Buffer := Buffer + GEtChamps(12)+ #9;
    Buffer := Buffer + #13;
 
   if (Length(Buffer) > 0) then
    begin
      Clipboard.Clear;
      Clipboard.AsText := Buffer;
      Buffer := '';
      BaseCell.Offset[k,0].Select;
      ExcelApp.ActiveSheet.Paste;
      Inc(k);
    end;

@+ Phil

[TicTacToe]

Salut

+1
Comme le dit Anapurna

Avec Excel, il vaut mieux copier le max. de données dans le buffer du presse-papier et tout coller ensuite. Quitte à faire de la mise en forme, au maximum par lot, après.

Sinon, la lenteur d'accès à chaque action vers Excel devient très lourd.

[b.grellee]

Salut

je cherchais justement à optimiser mon code pour exporter vers excel mais delphi me refuse le .Paste
Ta variable ExcelApp est bien de type TExcelApplication ?

Code :

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

1
2
3
 
      BaseCell.Offset[k,0].Select;
      ExcelApp.ActiveSheet.Paste;

merci pour l'aide

[anapurna]

salut

ExcelApp correspond a ton xla

@+ Phil

[b.grellee]

j'ai avancé sur le sujet mai un truc me chagrine sur D2005
le code suivant marche

Code :

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

1
2
3
4
5
 
  vMSExcel := CreateOleObject('Excel.Application');
  // Traitement
  vMSExcel.Range['A1'].select;
  vMSExcel.activesheet.paste;

mais si je pose le composant Delphi TExcelApplication
le code .paste n'est pas accepté par le compilo

Code :

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

1
2
3
4
 
  ExcelApplication1.connect;
  MonClasseur:=ExcelApplication1.Workbooks.Open('...')
  ExcelApplication1.activesheet.paste;

A croire que le composant n'intègre pas toutes les fonctionnalités ?

[anapurna]

salut

si tu regarde dans le code source de ton composant tu t'aperçois que le activesheet fait appelle a une interface
(il ont redefini le activsheet) et pas a un objet ole

@+ Phil

[okparanoid]

Toute facon je comprends pas bien l'utilite du TExcelApplication vu qu'il depend de la version d'excel installee sur le systeme. Le passage par ole a pas cet inconvenient...

Personne a pense a developper un composant generique qui marche quelque soit la version ? Ca serait plus pratique !

[Laurent Dardenne]

Salut,

A croire que le composant n'intègre pas toutes les fonctionnalités ?

Tout à fait, au vue de

J'utilise Delphi 7, Excel 2003, le paquet dclofficexp70 pour TExcelApplication, le tout sous Windows XP Pro.

essaie avec la TLB d'Excel 2003, le code sera en phase avec l'objet Automation utilisé.
En revanche il te faudra recréer le paquet contenant les objets Office.

Toute facon je comprends pas bien l'utilite du TExcelApplication

Tu n'a pas besoin de coder la gestion des événements.

Personne a pense à developper un composant génèrique qui marche quelque soit la version ?

Yapluska

[okparanoid]

C'est bien pour ca que je disais que ce serait plus pratique en passant par un composant :p, mais tant que c'est pas generique bof bof...

Ca prendrait beaucoup de temps a faire ? Reecrire les methodes en appelant selon les cas celles du composant correspondant a celui installé sur le systeme en adaptant pour avoir les parametres qui vont bien ?

Les gars de la JCL ils seraient pas chaud pour le faire ?

[Laurent Dardenne]

Ca prendrait beaucoup de temps a faire ? Reecrire les methodes en appelant selon les cas celles du composant correspondant a celui installé sur le systeme en adaptant pour avoir les parametres qui vont bien ?

Cela dépend si tu souhaites avoir l'ensemble des méthodes ou pas, et si tu utilises les nouveaux paramètres ou pas.

Une autre approche
http://delphi.developpez.com/faq/?pa...gupositionnels
Cela peut être un peu plus lent mais c'est comme tout compromis, faut faire des choix.

Le plus lourd c'est d'avoir une plateforme de test avec 2-3 versions.
Je ne suis pas certain que tu puisses toutes les installer sur un même poste.