importer une une table sur exel

Question

SVP je veux importer ma table sur un document exel mais je sais pas comment faire

ThWilliam · Answer

Bonjour Lidia.
Cela fait deux fois que tu postes la même question !
Enfin bon... comme tu as l'air complètement désespérée, voici quelques trucs pour une liaison OLE.
Mais pense à recherche sur Google:  "Delphi excel" !!! Il y a plein de sites.

1) rajouter dans la clause uses : ComObj
2) déclarer une variable -> OleExcel: variant;
3) pour créer le lien OLE avec Excel -> OleExcel:= CreateOleObject('Excel.Application');
4) pour créer un nouveau classeur -> OleExcel.Workbooks.Add;
5) pour rendre visible Excel -> OleExcel.Visible:= true;
6) pour assigner une valeur à une cellule, il suffit de dire :
          OleExcel.Cells[3,2].Value:= 'bonjour';
    3 = la ligne
    2 = la colonne (B)

Ce qui donne pour ta table (je vais copier dans la colonne A les valeurs du champ "NOM") :

X:= 1;
Table1.First;
while not Table1.Eof do
begin
    OleExcel.Cells[X, 1].Value:= Table1.FieldByName('NOM').asString;
    // ajouter ici les autres champs dans colonnes 2,3...
    Inc(X);
    Table1.Next;
end; 

Quand tu n'as plus besoin de la liasion OLE :
OleExcel:= unassigned;

Voilà, j'espère avoir répondu à ta question...
Thierry

cs_lidia22 · Answer

merci ThWilliam!et désolé pour le dérangement

Importer une une table sur exel

2 réponses

Votre réponse

Discussions similaires