Discussion :

[Charly910]

Bonjour,

j'exporte le contenu d'un StringGrid vers un fichier Xls à l'aide de ce 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
{ ============================================================================== }
function TF_Grille.SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
//     Sauvegarde d'une grille dans un fichier Excel
// Utilisation : SaveAsExcelFile(StringGrid1,'c:\testxls.xls');
// La directive $J contrôle si les constantes typées peuvent être modifiées ou non.
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
        Begin
          If Pos(sLineBreak , AGrid.cells[i, j]) >0 Then ShowMessage('Oui') ;  // détection du passage à la ligne dans la grille
          XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
        End ;
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;
{ ============================================================================== }
procedure TF_Grille.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;
{ ============================================================================== }

Dans la StringGrid, j'ai des textes sur plusieurs lignes (grâce à sLineBreak)

à l'export ces textes se retrouvent dans Excel sur une même ligne de la cellule.

Il faudrait que je remplace les sLineBreak par des Alt+Enter (qui passe à la ligne dans Excel)

Je ne sais pas comment faire. Quelqu'un a t'il déjà fait ?

Merci
A+
Charly

[acaumes]

Bonjour,

Dans Excel c'est juste un saut de ligne (LF (chr(10)).

Cordialement

[Charly910]

Merci Acaumes,

j'ai déjà essayé Chr(10) pour séparer les lignes, mais quand j'ouvre Excel, tout est sur une même ligne

Si je me place sur la cellule, les lignes apparaissent séparées dans la ligne de saisie, mais pas dans la cellule ??

A+
Charly

[blonde]

Salut,

j'ai essayé rapidement avec le Chr(10), ça fonctionne bien.
Par contre, moi dans Excel j'ai l'option "renvoyer automatiquement à la ligne" qui est activée. C'est dans l'onglet "alignement" du ruban principal.
C'est peut-être ça qui te manque.

[Charly910]

Bonjour,

oui, moi aussi, dans le fichier généré après export, si je fais "Renvoyer automatiquement à la ligne", ça marche, mais j'aurai voulu que cette option soit mise automatiquement dans mon fichier généré quand je l'ouvre.

ça à l'air plus coton !

A+
Charly

[blonde]

Alors ça, modifier les options d'affichage de Excel, je n'ai jamais fait

[blonde]

Sinon, tu peux modifier chaque cellule avec "CellFormat.WrapText property"

J'ai trouvé ça là : https://docs.microsoft.com/en-us/off...ormat.wraptext

Et je suppose que tu peux y accéder en OLE.

[Charly910]

Oui merci, je vais plutot passer par Ole plutôt que par ce code de la FAQ.

L'avantage de ce code, c'était que l'on avait pas besoin d'Excel sur le poste. Mais le fichier généré est "rustique"

A+
Charly

[acaumes]

Bonjour,

Selon la doc Microsoft c'est dans l'enregistrement XF lié à l'enregistrement du LABELSST (7 ème octet de l'enregistrement 3ème bit)

3 0008h fWrap =1 wrap text in cell.

On trouve ces informations dans le document Microsoft

Excel97-2007BinaryFileFormat(xls)Specification

Cordialement

[Charly910]

Merci Acaumes,
mais je suis incapable de modifier le code FAQ avec ce renseignement

Il faudrait surement modifier la fonction XlsWriteCellLabel ?

Si jamais tu sais comment faire ...

Merci
A+
Charly

[Papy214]

Pourquoi ne pas utiliser ADOX ?
C'est facile et ça génère de vrai fichier excel sans avoir Excel installé sur le poste.

[Charly910]

Merci,

je vais regarder

A+
Charly

[Charly910]

Finalement j'ai fait ceci qui fonctionne très bien (avec certaines cellules sur plusieurs lignes dans le StringGrid) :

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
Procedure TF_Grille.ExportGrilleToExcel(FileName: string; AGrid : TStringGrid);
// Export de AGrid vers Excel
const
  xlWBATWorksheet = -4167;
Var
  XLApp    :variant ;
  WorkBook :variant ;
  Fichier  : String ;
  i, j     : Integer ;
Begin
  Fichier := RepApp+'\'+ Filename ;
  If FileExists(Fichier) Then DeleteFile(Fichier) ;
  XLApp := CreateOleObject('Excel.Application');
  Try
    WorkBook := XLApp.Workbooks.Add;
    XLApp.ActiveWorkBook.SaveAs(Fichier);
    For i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do
        XLApp.Cells[j + 1, i + 1].Value := AGrid.Cells[i, j];
    XLApp.ActiveWorkBook.Save;
    XLApp.Workbooks.Close ;
    MessageDlg('Fichier '+ Fichier+ ' enregistré', mtInformation, [mbOk], 0) ;
  Finally
    if not VarIsEmpty(XLApp) then
      begin
        XLApp.DisplayAlerts := False;
        XLApp.Quit;
        XLAPP := Unassigned;
      End ;
  End ;
End;

Mais bien sûr Excel doit être installé sur le poste.

Dommage, j'aurai bien voulu bidouiller dans le fichier XLS de ma première solution !

Merci à tous

A+
Charly

[Papy214]

Je vais essayer de te retrouver un exemple de création avec ADOX.
Attention, ça n'est intéressant que si tu n'as pas besoin de formater les colonnes, changer les couleurs, etc.

[Papy214]

Alors , dans un premier temps, il faut importer une bibliothèque de types à partir de

C:\Program Files (x86)\Common Files\System\ado\msadox.dll

ce qui va te donner accès aux types

Code :

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

1
2
3
4
5
6
7
  Table = _Table;
  Column = _Column;
  Index = _Index;
  Key = _Key;
  Group = _Group;
  User = _User;
  Catalog = _Catalog;

Après, tu t'inspires du site suivant :

https://www.swissdelphicenter.ch/en/...de.php?id=1427

avec la fonction DBGridToExcelADO

[Papy214]

exemple simple :

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
 
var
  cat: _Catalog;
  tbl: _Table;
  col: _Column;
 
begin
  cat := CoCatalog.Create;
  cat.Set_ActiveConnection(
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\creerexcel.xls;Extended Properties=Excel 8.0');
 
    // WorkSheet creation (table)
    tbl := CoTable.Create;
    tbl.Set_Name('Traductions');
 
    col := CoColumn.Create;
    with col do
    begin
      Set_Name('Groupe');
      Set_Type_(adWChar);
    end;
    tbl.Columns.Append(col, adWChar, 500);
 
    col := CoColumn.Create;
    with col do
    begin
      Set_Name('Emplacement');
      Set_Type_(adWChar);
    end;
    tbl.Columns.Append(col, adWChar, 150);
 
    col := CoColumn.Create;
    with col do
    begin
      Set_Name('ID');
      Set_Type_(adInteger);
    end;
    tbl.Columns.Append(col, adInteger, 11);
 
    col := CoColumn.Create;
    with col do
    begin
      Set_Name('Référence');
      Set_Type_(adWChar);
    end;
    tbl.Columns.Append(col, adWChar, 500);
 
    col := CoColumn.Create;
    with col do
    begin
      Set_Name('Traduction');
      Set_Type_(adWChar);
    end;
    tbl.Columns.Append(col, adWChar, 500);
 
    cat.Tables.Append(tbl);
 
    col := nil;
    tbl := nil;
    cat := nil;
end;

[Charly910]

Merci Papy214,

Je vais tester, mais je n'ai pas un DBGrid, mais un StringGrid ...

A+
Charly

[BuzzLeclaire]

Bonjour Charly,

J'avais fait cela à l'époque peut-être cela te sera utile pour faire à ta sauce.


https://www.developpez.net/forums/d6...id-vers-excel/


Bye

[Papy214]

peut importe la source ! le but est de remplir la feuille excel comme tu remplirais une table.

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
 
  ADOConnection                  := TADOConnection.Create(nil);
  ADOConnection.LoginPrompt      := false;
  ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\creerexcel.xls;Extended Properties=Excel 8.0';
  ADOQuery                       := TADOQuery.Create(nil);
  ADOQuery.Connection            := ADOConnection;
 
  // La feuille s'appelle Traduction et il faut kui ajouter un $
  ADOQuery.SQL.Text := 'Select * from [' + 'Traductions' + '$]'
  ADOQuery.Open;
 
  // Groupe, Emplacement, ID, Reference, Trad sont des variables à remplir
  ADOQuery.AppendRecord([Groupe, Emplacement, ID, Reference, Trad]);
 
  ADOQuery.Close;
 
  ADOConnection.Close;

[Charly910]

Ton premier code fonctionne Bien : le fichier d:\creerExcel.xls est bien créé mais si j'exécute une deuxième fois j'ai une erreur :

EOleException avec : La table traduction existe déjà

sur cat.Tables.Append(tb1)

D'autre part, comment remplir une cellule du fichier ? Cells[2,3] par exemple

A+
Charly