table DB vers excel

Version imprimable

06/09/2009, 14h32
ninita

table DB vers excel

bjr, je voudrai exporter 3 tables DB vers une feuille excel puis insérer une macro dans excel pour faire le cacul de la moyenne, je me perds

salut
regardes ce code peut etre que ça t'aidera

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
var
vMSExcel,vXLWorkbooks, vXLWorkbook,  vWorksheet : variant ;
i,j:integer;
 
begin
// demarrer excel
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;
 
//creer un nouveau fichier xls
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
 
//acceder a une feuil
vWorksheet := vXLWorkbook.WorkSheets['feuil1'];
 
 
//ecrire les titres des champs
for i:=0 to table1.FieldCount-1 do
vworksheet.cells.item[1,i+1].value:=table1.Fields[i].FieldName;
 
//ecrire les données
table1.First;
for j := 1 to table1.RecordCount do
begin
for i:=0 to table1.FieldCount-1 do
begin
vworksheet.cells.item[j+1,i+1].value:=table1.Fields[i].AsString;
end;
table1.Next;
end;  
 
end;

dans ton cas (3 tables) vaut mieux créer une procédure qui aura le nom de la table comme paramètre, pour la macro aucune idée
bonne chance

07/09/2009, 09h51
ninita

table DB vers excel

bonjour sami, j'ai ajouté un bouton et on click, j'ai copié ton code mais là l'execution s'arrête en me disant qu'il faut déclarer la fonction CreateOleObject, je ne comprends pas puisqu'elle est prédéfinie
07/09/2009, 11h24
Fxg

Tu as l'unité ComObj dans ton Uses ?
07/09/2009, 11h48
ninita

table DB vers Excel

non je vais l'ajouter et je vais lancer l'execution pour voir
07/09/2009, 11h58
ninita

table DB vers Excel

ça a fonctionné merci
07/09/2009, 12h03
Fxg

La méthode dans ce cas là est quasiment toujours la même :

un coup de F1 sur le mot clé et dans l'aide apparait l'unité dont il dépend.
07/09/2009, 12h08
ninita

DB vers Excel

reç 5/5 et merci encore!:-)
07/09/2009, 18h53
NABIL74

salut à toutes et à tous :),

ninita, pour lancer ta macro à Excel via delphi, ce lien peut t'aider:
http://www.developpez.net/forums/d76...l-vers-delphi/

pour faire la macro de calcul de la moyenne, tu as deux possibilités:
1- écrire ce code en VB eh oui!(dans l'exemple qu'il y a sur le lien).
2- ou traduire ce code en delphi.

Pourquoi pas calculer la moyenne directement sous delphi sans passer par Excel? ça sera plus facile non? parceque si tu exportes tes 3 tables,il faut créer la macro de calcul et puis il faut se positionner sur la cellule dans laquelle tu inséreras ton calcul.....

En tout cas, c'est à toi de voir.

Bonne chance.

NABIL74