Exporter les donnees d'un tableau cree en delphi sur Excel

Bonjour a tous , j'ai cree un tableau de maniere statique,mais j aurai bien pu le faire dynamiquement, et je voudrais exporter les valeurs du tableau dans chacune des cellules sur Excel .
Je n ai pu jusqu'a aujourdhui, qu' ecrire sur une cellule cellule par ce code

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

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin vMSExcel:=CreateOleObject('Excel.Application'); vMSExcel.Visible:=true; vXLWorkbooks:=vMSExcel.workbooks; vXLWorkbook:=vXLWorkbooks.Add;   //******Acceder à la feuille aSheetName:='Feuil1'; vWorksheet:=vXLWorkbook.WorkSheets[aSheetName];   //********modifier la valeur d'une cellule aRange:='A1'; vCell:=vWorksheet.Range[aRange]; aValue:=5; vCell.Value:=aValue;   end; procedure TForm1.Button2Click(Sender: TObject); begin vMSExcel.Quit; vMSExcel:=unassigned; end;

---

Le tableau est de dimension 2 et lorsque je fait le test j obtiens aucune valeurs desirees

salut

bin au vu de ton code cela parait normal vu que tu fixe la cellule 'A1'

sinon le probleme a souvent ete debatu ici une recherche dans la faq peut te permettre aussi de resoudre ton probleme

@+ Phil

salut ............
je sais qu avec ce code je ne peut qu avoir une cellule .
en utlisant un tableau, je voudrais mettre chaque valeur dans une cellule jai essayer ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var tab:Array[0..9] of integer; aValue:Array[0..9] of integer;   begin aRange:='A1:A10'; vCell:=vWorkSheet.Range[aRange]; for i:=0 to 9 do aValue:=Tab[i] for i:=0 to 9 do vCell.Value:=aValue[i]; end;

---

salut

bin ca marche pas et c'est normal tu selectionne une plage
et ensuite tu essai d'affecte une valeur sur la plage et non pas sur la cellule

essai plutot un truc du genre

Code:

---

1 2 3 4 5

for i:=0 to 10-1 do begin Select := format('A%d ',[i]); WorkSheet.Range[Select,Select].Value := aValue[i]; end;

---

@+ Phil

salut ...
j ai tester le code et j obtiens une erreur a l avant derniere ligne

j ai meme essayer ca :

Code:

---

1 2 3 4 5 6 7 8 9

for i:=0 to 9 do aValue[i]:=i;   for i:=0 to 9 do begin aRange:=format('A%d',[i]); vCell:=WorkSheet.Range(aRange); vCell.Value:=aValue[i]; end;

---

le resultat est le meme............

salut

c'est quoi le message d'erreur ?

@+ Phil

salut , voila j ai pu avoir un tableau exporter depuis delphi mais d'une seule dimension et le code est plutot simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

aSheetName:='Feuil1'; aRange:='A1:A5'; vCell:=vWorkSheets.Range[aRange];   for i:=0 to 5 do aValue[i]:=i;   for i:=0 to 5 do begin vCell.Item[i,1]:=aValue[i]; end;

---

j'essaie de voir maintenant pour des tableaux a deux dimensions