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

**oneDev** · 04/07/2021, 09h52

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 :

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

**Charly910** · 04/07/2021, 10h08

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 :

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

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

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

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

A+
Charly

**oneDev** · 04/07/2021, 11h19

Merci de ta réponse.

Je viens de tester, voici mon code :

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

**ShaiLeTroll** · 04/07/2021, 14h08

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

**oneDev** · 05/07/2021, 08h09

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

**SergioMaster** · 05/07/2021, 08h25

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

**ShaiLeTroll** · 05/07/2021, 09h15

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

**anapurna** · 05/07/2021, 12h57

un simple copier coller devrais suffire

**oneDev** · 06/07/2021, 09h16

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

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

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

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.

**Charly910** · 07/07/2021, 09h24

Bonjour,

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

**anapurna** · 07/07/2021, 09h26

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

**anapurna** · 07/07/2021, 10h40

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 :

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

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;

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

Langage Delphi

Discussions similaires

Partager

Partager