Export Delphi vers Excel très lent

Version imprimable

15/02/2008, 15h25
Sandara

Export Delphi vers Excel très lent

Bonjour,

J'utilise la méthode Ole pour exporter mon StringAlignGrid vers un classeur excel.

Seul probleme, ca met plus d'une minute pour exporter 380 lignes et 25 colonnes.
Sachant que j'ai des tableaux bien plus gros, je voulais savoir si il existe un autre moyen, beaucoup plus rapide pour exporter des données vers Excel?

Merci d'avance.
15/02/2008, 15h51
Lung

Citation:

Envoyé par Sandara

J'utilise la méthode Ole pour exporter mon StringAlignGrid vers un classeur excel.

C'est-à-dire ?
Tu ouvres Excel, et tu rempli case par case ?

Moi, je génère un fichier texte, avec séparateur (le point-virgule par exemple), et je demande à Excel de l'importer (par OLE).
C'est BEAUCOUP plus rapide.

;)
15/02/2008, 16h03
Sandara

Oui j'utilise Ole pour remplir case par case mon fichier Excel.

Donc passer par un fichier texte est le plus rapide ou existe il un autre moyen?
Je préfere me renseigner et savoir s'il en existe une meilleure avant de me lancer dans cette méthode.

Merci
15/02/2008, 16h05
Sandara

Peux tu m'eclairer sur la démarche à suivre pour faire l'import d'un fichier texte en Ole ?

Merci
15/02/2008, 23h08
Paul TOTH

moi je te recommande les composants XLSReadWriteII qui sont excellents et ne nécessitent pas Excel sur le poste ... c'est très intéressant notamment quand tu as une politique de migration à OpenOffice :D

Si tu veux un truc pas trop complexe gratos et sans besoin d'Excel tu peux interpréter ce bout de code (trouvé sur Torry je crois) :
Pour voir un exemple d'utilisation tu peux en récupérer un ici (https://sourceforge.net/projects/axbase/)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
function SaveAsExcelFile(ADataSet: TDataSet; AFileName: string): Boolean;
const
  {$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
  CXlsEof: array[0..1] of Word = ($0A, 00);
var
  FStream: TFileStream;
  ICol, iRow: Integer;
 
    procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
      const AValue: string);
    var
      L: Word;
    const
      {$J+}
      CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
      {$J-}
    begin
      L := Length(AValue);
      CXlsLabel[1] := 8 + L;
      CXlsLabel[2] := ARow;
      CXlsLabel[3] := ACol;
      CXlsLabel[5] := L;
      XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
      XlsStream.WriteBuffer(Pointer(AValue)^, L);
    end;
begin
  Result := False;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    ADataSet.DisableControls;
    ADataSet.first;iRow := 0;
     while not ADataSet.EOF do
     begin
        iRow := iRow+1;
        for ICol := 0 to ADataSet.FieldCount - 1 do
          XlsWriteCellLabel(FStream, ICol+1, iRow,ADataSet.Fields[ICol].AsString);
        ADataSet.Next;
     end;
     ADataSet.DisableControls;
 
 
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;

17/02/2008, 10h54
Paul TOTH

j'ai un peu la même chose en un peu plus évolué sur mon site :)

mais XLStream ne génère que des documents Excel 2.1; j'avais commencé à travailler sur le format Excel 97 quand je suis tombé sur XLSReadWriteII qui représente un travail colossal et qui est super bien fait :)
17/02/2008, 12h19
skywaukers

Bonjour,

il y a aussi les composants Flexcel (anciennement gratuits, ils sont maintenant distribués par TMS). Je les utilisent régulièrement, ils sont très performants et permette de faire des tableaux avancés (par exemple des croisés dynamiques) sans avoir Excel, ils tournent même sous Kylix (pour ceux qui connaissent encore).

@++
Dany
18/02/2008, 10h13
Sandara

Bonjour,

Je viens de tester ton code philnext, je dois dire que la rapidité d'execution est parfaite!

Cependant j'ai tout de meme un petit soucis.

Les données que j'exporte vers excel sont des tableaux de chiffres et il doit etre possible par la suite de faire des calculs sur ces derniers. Le problème est que je ne peux pas choisir le type des données (numérique, monétaire, date, texte...), ce qui compliquent les choses!

Y a t'il un moyen d'affecter un type aux données ?

Merci d'avance.

PS : Merci beaucoup pour toutes vos réponses.
18/02/2008, 11h10
philnext

Ben alors je te conseille de regarder le site de Paul : http://www.zoo-logique.org/tothpaul/...p?dprdoc.biff8

Si j'ai le temps j'essayerais d'intégrer ses sources à mon exemple mais pas à court terme.
18/02/2008, 11h55
Sandara

oups

Je viens de trouver ce code pour le format numérique en cherchant sur des sites étrangers.
Code:

1 2 3 4 5 6 7 8 9 procedure XlsWriteCellNumber(XlsStream: TStream; const ACol, ARow: Word; const AValue: Double); const CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0); begin CXlsNumber[2] := ARow; CXlsNumber[3] := ACol; XlsStream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber)); XlsStream.WriteBuffer(AValue, 8); end;
Ca a l'air de bien marcher, apres ce qui est plus embettant c'est qu'il faut savoir à l'avance quelles cellules sont numériques et lesquelles sont des chaines, il n'y a pas moyen de le faire dynamiquement si l'on exporte directement d'une TStringAlignGrid :roll:

19/02/2008, 14h32
Sandara

1 pièce(s) jointe(s)

Bonjour,

Maintenant que j'ai reussi a mettre en place l'export de mon tableau, j'aurais voulu le formater afin qu'il soit mieux présenté. ( Mettre des bordures et diminué la taille )

J'ai recherché dans des doc. en anglais et c'est incompréhensible !

Quelqu'un pourrait-il m'éclaircir la dessus, ou alors peut-etre existe il des documents en francais plus clairs.

Je vous joint le fichier pdf de documentation sachant que les points interessants d'apres moi sont les 2.7 , 2.9 , 5.1.

Merci d'avance pour votre aide.

Pièce jointe 25816
21/02/2008, 16h28
Sandara

Personne ne saurait m'aider ? :(
22/02/2008, 11h27
Paul TOTH

XLSReadWriteII gère les formats, les formules, les graphiques, enfin bref, quasiment tout ce qu'il est possible de gérer :D

il me semble que tu génères du BIFF5, soit du Excel 2.1, le formatage est assez limité...mais mon programme demo dans XLStream montre quelques possibilités de mise en page.