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
| procedure TForm4.Button3Click(Sender: TObject);
begin
MonClasseur:=ExcelApplication1.Workbooks.Open('C:\Program Files\Gestionix\delphi.xls',False,False,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,0);
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
Edit1.Text:=(MaFeuille.Cells.Item[1,1].Value);
Edit2.Text:=(MaFeuille.Cells.Item[2,1].Value);
Edit3.Text:=(MaFeuille.Cells.Item[3,1].Value);
Edit4.Text:=(MaFeuille.Cells.Item[4,1].Value);
Edit5.Text:=(MaFeuille.Cells.Item[5,1].Value);
Edit6.Text:=(MaFeuille.Cells.Item[6,1].Value);
Edit7.Text:=(MaFeuille.Cells.Item[7,1].Value);
Edit8.Text:=(MaFeuille.Cells.Item[8,1].Value);
Edit9.Text:=(MaFeuille.Cells.Item[9,1].Value);
Edit10.Text:=(MaFeuille.Cells.Item[10,1].Value);
Edit11.Text:=(MaFeuille.Cells.Item[11,1].Value);
Edit12.Text:=(MaFeuille.Cells.Item[12,1].Value);
Edit13.Text:=(MaFeuille.Cells.Item[13,1].Value);
Edit14.Text:=(MaFeuille.Cells.Item[14,1].Value);
Edit15.Text:=(MaFeuille.Cells.Item[15,1].Value);
Edit16.Text:=(MaFeuille.Cells.Item[16,1].Value);
Edit17.Text:=(MaFeuille.Cells.Item[17,1].Value);
Edit18.Text:=(MaFeuille.Cells.Item[18,1].Value);
Edit19.Text:=(MaFeuille.Cells.Item[19,1].Value);
Edit20.Text:=(MaFeuille.Cells.Item[20,1].Value);
end; |
Partager