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;