Kod: Tümünü seç
var
book:variant;
excel,sheet ,no:variant;
satir, sutun,satirno2:integer;
str,satirno, sutunno:string;
begin
JvXPProgressBar2.Position:=0;
excel := createOleObject('Excel.application');
form1.OpenDialog1.Filter := 'Excel Dosyaları (*.xls)|*.xls';
if form1.OpenDialog1.Execute then
begin
book:= Excel.WorkBooks.Open(form1.OpenDialog1.FileName);
try
sheet := book.worksheets[1];
Screen.Cursor := crHourGlass;
satirno := Excel.ActiveCell.Row -1;
JvXPProgressBar2.Max:= satirno2;
no:=0;
for satir:=1 to satirno2 do
begin
no:= no +1;
begin
Update;
form1.ADOQuery1.Append;
for sutun:=1 to 6 do
form1.ADOQuery1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun];
form1.ADOQuery1.Post;
JvXPProgressBar2.Position := no;
end;
end;
Excel.quit;
excel:=Unassigned;
JvXPProgressBar2.Position:= no ;
finally
end;
end;
Screen.Cursor := crDefault;
end;