Discussion :

[21247692]

bj a ts

j'ai une table yacine et un fichier de exel

comment copier les donnés d'une table vers un fichier exel

je vous remerci d'avance

[ShaiLeTroll]

tu peux ouvrir ta table, tu génère un fichier csv, et tu ouvre ce fichier avec 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
       ExcelOle := CreateOleObject('Excel.Application');
       try
         ExcelOle.Visible := False;
         ExcelOle.WorkBooks.Open(NomDuFichierTemporaire);
         ExcelOle.WorkBooks[1].WorkSheets[1].Name := 'Nom de la Page';
 
         ExcelOle.Cells.Select;
         ExcelOle.Selection.Columns.AutoFit;
         ExcelOle.Cells[1, 1].Select;
 
         ExcelOle.ActiveWorkBook.SaveAs(Filename := NomDuFichierDefinitif, FileFormat := -4143); // Convertit CSV en Excel        
         DeleteFile(NomDuFichierTemporaire);
 
      finally
         ExcelOle.Visible := True;
         ExcelOle.UserControl := True;
         ExcelOle := Unassigned;
      end;

tu peux générer le fichier totalement en Automation, c'est assez long à écrire ... et la gestion des themes c'est une horreur
voir aussi TMS FlexCell, c'est plus court, mais tu n'as pas toutes les possibilités !

[21247692]

merci
mais j'ai pas compri votre code, c'est quoi ça ( ExcelOle )

[ShaiLeTroll]

c'est une variable

Code :

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

1
2
var
  ExcelOle: Variant;

ça se devine avec l'affectation de Unassigned !

[21247692]

merci

moi je veux afficher un fichier exel dans un dbgrid, c'est a dir dans une table

[ShaiLeTroll]

faut savoir ce que tu veux

comment copier les donnés d'une table vers un fichier exel

moi je veux afficher un fichier exel dans un dbgrid, c'est a dir dans une table

dans cas, tu peux utiliser un driver ADO pour Excel, j'avais trouvé cela une fois, où l'on pouvait ouvrir un fichier Excel comme une Table ACCESS, c'est vieux, j'ai vu ça à l'époque de Win98, je ne l'ai jamais retrouvé (je n'ai pas cherché faut dire) ...