Discussion :

[breizh44]

Bonjour,

Je cherche à copier le contenu d'une stringgrid dans une feuille excel à une ligne pré déterminée.

dans mon application, j'ai une stringgrid comprenant 100 lignes et 3 colonnes. J'aimerais copier le contenu de cette stringgrid à une position déterminée dans excel.

1ère ligne de la stringgrid, cellule de la 1ère colonne (col[1] dans la cellule B11 de la feuille excel, 2ième cellule de la 1ère ligne dans la cellule C11 de la feuille excel

Et ainsi de suite...

Seules les clignes de la stringgrid contenant du texte comportent un '1'. Je fais donc une lecture des valeurs de cellules de la colonne 0 pour savoir si elles sont vides ou remplies. Si elles contiennent du texte, je les copie.

J'ai fait ce code qui me génère une classe d'exception OLE :

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
26
27
28
29
30
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ExcelApp, ExcelWbx, ExcelWbk : variant;
i,j : integer;
begin
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.Visible := false;
 
  ExcelWbx := ExcelApp.Workbooks;
  ExcelWbk := ExcelWbx.Open('c:\PricerNS\Data\Pricer original.xls');
  ExcelApp.cells[2,2].value := numdevis.caption;
  ExcelApp.cells[2,5].value := datedev.date;
  ExcelApp.cells[4,2].value := commercial.Text;
  ExcelApp.cells[6,2].value := edit1.Text;
  ExcelApp.cells[7,2].value := edit2.text;
  ExcelApp.cells[8,2].value := edit3.Text + ' ' + edit4.Text;
  ExcelApp.cells[8,3].value := edit5.Text + ' ' + edit6.Text;
   j :=11;
   for i := 0 to recap.finish.RowCount -1 do
   begin
   if recap.finish.Cells[0,i] = '1'   then
  excelApp.cells[j,i].value := recap.finish.Cells[1,i];
  excelApp.cells[j,i].value := recap.finish.Cells[2,i];
  j := j+1;
   end;
   //excelApp.workbook.close;
  ExcelApp.quit;
  ExcelApp := unassigned;
  recap.Show;

Quelqu'un peut il me dire ce qui ne va pas?

Merci beaucoup.

[Invité1]

salut
pourquoi pour "j" tu ne fais pas une boucle

Code :

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

1
2
3
4
5
6
7
8
9
 
.....
  for i := 0 to recap.finish.RowCount -1 do
   begin
   if recap.finish.Cells[0,i] = '1'   then
   for j:= 11 to 12 do
   excelApp.cells[j,i].value := recap.finish.Cells[j-10,i];
   end;
.............

essaies de mettre vMSExcel.Visible à true peut etre que c'est ça le probleme

[BuzzLeclaire]

Salut,

Tu peux peut-être t'inspirer de cela :

Export MultiStringGrid into Excel



Bye.