[D7] Meilleure façon d'écrire fichier Excel

Version imprimable

Bonjour à tous,

Je dois écrire un fichier Excel avec beaucoup de données. Environ 50 colonnes pour 100-200k lignes.
J'ai écrit ce programme pour tester le fonctionnement.

Cela fonctionne, mais demande beaucoup trop de temps.

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
const
  NB_LINS: Integer = 100000;
  NB_COLS: Integer = 50;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  LCID: Cardinal;
  myxlApp: TExcelApplication;
  myxlBook: TExcelWorkbook;
 
  xlFile: string;
  i, j: Integer;
begin
  LCID := GetUserDefaultLCID;
 
  myxlApp := nil;
  myxlApp := TExcelApplication.Create(nil);
  myxlApp.Connect;
  myxlApp.Visible[LCID] := False;
  myxlApp.DisplayAlerts[LCID] := False;
  myxlApp.ScreenUpdating[LCID] := False;
 
  myxlApp.Workbooks.Add(EmptyParam, LCID);
  myxlBook := TExcelWorkbook.Create(myxlApp);
  myxlBook.ConnectTo(myxlApp.ActiveWorkbook);
 
  try
    ProgressBar1.Max := NB_LINS;
    ProgressBar1.Position := 0;
    for i:=1 to NB_LINS do
    begin
      ProgressBar1.Position := i;
      for j:=1 to NB_COLS do
 
        myxlApp.Cells.Item[i, j].Value := Format('Ligne %d - Colonne %d', [i, j]);
    end;
 
    xlFile := Format('%smy_file.xlsx',[getMyDocs]);
    myxlBook.Close(True, xlFile);
  finally             
    myxlBook.Disconnect;
    FreeAndNil(myxlBook);
 
    myxlApp.Disconnect;
    FreeAndNil(myxlApp);
 
    ShowMessage('Terminé !');
  end;
end;

Quelle est la meilleure façon pour écrire rapidement autant de données ?
Il faut que ce soit un fichier Excel *.xlsx et pas un csv.

Merci de vos conseilles.

Bonjour,

je ne sais pas si c'est plus rapide, mais il est possible d'utiliser des TStream pour créer des fichiers Excel. Par exemple pour sauver une grille dans un fichier Excel :

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
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;
 
 
function SaveAsExcelFile(AGrid: TStringGrid; 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;
  I, J: Integer;
begin
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try 
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    for i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do 
        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof)); 
    Result := True;
  finally
    FStream.Free;
  end;
end;

Utilisation :

Code:

1
2
 
SaveAsExcelFile(StringGrid1,'c:\testxls.xls');

C'est du Xls, mais ça doit marcher pour du Xlsx

A+
Charly

Merci de ta réponse.

Je viens de tester, voici mon code :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Main;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);
    function SaveAsExcelFile(AFileName: string): Boolean;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveAsExcelFile('C:\temp\fichier.xlsx');
  ShowMessage('Terminé');
end;
 
procedure TForm1.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;
 
function TForm1.SaveAsExcelFile(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);
  NB_LINES = 100000;
  NB_COLS = 50;
var
  FStream: TFileStream;
  i, j: Integer;
begin
  ProgressBar1.Max := NB_LINES;
  ProgressBar1.Position := 0;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
 
    for i := 0 to NB_LINES do
    begin
      ProgressBar1.Position := ProgressBar1.Position + 1;
      for j := 0 to NB_COLS do
        XlsWriteCellLabel(FStream, j, i, Format('Ligne %d - Colonne %d', [i,j]));
    end;
 
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;
 
end.

Le traitement est rapide et le fichier est bien créé.
Par contre, on ne peut pas l'ouvrir.

Impossible d'ouvrir le fichier "fichier.xlsx" car son format ou son extension n'est pas valide. Vérifiez que le fichier n'est pas endommagé et que son extension correspond bien au format du fichier.

C'est en fait bien un .xls qui est créé. On est donc limité à 65k lignes à l'ouverture du fichier.

04/07/2021, 14h08
ShaiLeTroll

Si il n'y a que de la données, le plus rapide, produire un fichier CSV puis le convertir via Excel en XSLX, c'est beaucoup plus rapide que via l'ajout en OLE

https://www.developpez.net/forums/d1...i/#post6375536
05/07/2021, 08h09
oneDev

Je dois mettre les données dans un fichier déjà existant en *.xlsx.
Je ne peux pas utiliser de .csv.
05/07/2021, 08h25
SergioMaster

Bonjour,

à essayer les suites SMImport/SMExport de Scalabium avantage pas besoin d'avoir la suite MS Office installée.
Le principe importer tout dans un clientdatatset (table mémoire ?), ajouter les données (append), exporter le clientdataset

Perso avec les nouvelles versions je suis passé avec CData Excel (qui lui n'ouvre que les xlsx d'ailleurs) et je traite les tableaux avec des requêtes Firedac
05/07/2021, 09h15
ShaiLeTroll

Citation:

Envoyé par oneDev

Je dois mettre les données dans un fichier déjà existant en *.xlsx.
Je ne peux pas utiliser de .csv.

Il n'existerait pas un mécanisme de fusion de données Range.TextToColumns
de vieux souvenirs de publipostage
05/07/2021, 12h57
anapurna

un simple copier coller devrais suffire
06/07/2021, 09h16
oneDev

Merci de vos réponses.
Je vais tester tout ça ;)

Citation:

Envoyé par SergioMaster

à essayer les suites SMImport/SMExport de Scalabium avantage pas besoin d'avoir la suite MS Office installée.
Le principe importer tout dans un clientdatatset (table mémoire ?), ajouter les données (append), exporter le clientdataset

Merci je vais tester :)

Citation:

Envoyé par ShaiLeTroll

Il n'existerait pas un mécanisme de fusion de données Range.TextToColumns
de vieux souvenirs de publipostage

Je vais regarder de quoi il s'agit. Je ne connais pas

Citation:

Envoyé par anapurna

un simple copier coller devrais suffire

Dans l'absolu oui, mais nous devons fournir un système complet. le fonctionnement doit être auto du début à la fin.
07/07/2021, 09h24
Charly910

Bonjour,

Delphi a accès au presse-papier. Le copier-coller est possible par programme ?
A+
Charly
07/07/2021, 09h26
anapurna

salut

il est possible de sortir des états (avec un ou plusieurs onglets) formaté avec formule et encadrement sous ecxel
en utilisant le copier coller pour les datas et ole pour le formatage

c'est bien plus rapide que de le remplir cellule par cellule

Citation:

Envoyé par Charly910

Bonjour,

Delphi a accès au presse-papier. Le copier-coller est possible par programme ?
A+
Charly

oui
en faisant simplement cela
Code:

1 2 3 4 5 6 7 8 if (Length(Buffer) > 0) then begin Clipboard.Clear; Clipboard.AsText := Buffer; Buffer := ''; BaseCell.Offset[Lig,Col].Select; ExcelApp.ActiveSheet.Paste; end;