Discussion :

[Nechba]

Bonjour a tous

Cette code m'afficher une message d'erreur
l'importation a éte effectué mais avec un message d'erreur
Merci d'avance de m'aider

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
 
procedure TForm1.importation(Sender: TObject);
var
 Excel: variant;
 Cell,Sheet : variant;
 Col: TColumn;
 Range :AnsiString;
 i: char;
 column,row: integer;
 
begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(Edit1.Text,unassigned,true);
  Sheet := Excel.WorkBooks[1].WorkSheets[1];
  i:='A';
 
    while (Sheet.Range[i+'1'].value<>' ') do
    begin
  Col:=DBGrid1.Columns.Add;
  Col.Title.Caption:=Sheet.Range[i+'1'];
  byte(i) := byte(i) + 1 ;
end;
 
end ;