Discussion :

[paolo2002]

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 :

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
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

[anapurna]

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

[paolo2002]

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 :

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

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;

[anapurna]

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 :

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

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

[paolo2002]

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

j ai meme essayer ca :

Code :

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

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............

[anapurna]

salut

c'est quoi le message d'erreur ?

@+ Phil

[paolo2002]

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

Code :

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

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