Discussion :

[Sandara]

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.

[Lung]

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.

[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

[Sandara]

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

Merci

[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

[philnext]

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 :

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
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;

[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

[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

[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.

[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.

[Sandara]

oups

[Sandara]

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

Code :

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

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

[Sandara]

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.

excelfileformat.rar

[Sandara]

Personne ne saurait m'aider ?

[Paul TOTH]

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

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.