Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
EXCELDEKISATIR,i:Integer;
begin
try
exceldosyasi:=CreateOleObject('excel.application');
exceldosyasi.Visible:=false;
exceldosyasi.workbooks.open('C:\Users\senkr\OneDrive\Masaüstü\MASTERDATA.xlsx');
EXCELDEKISATIR:=2;
Repeat
fdquery1.append;
FDQUERY1.Fields.FieldByName('PARCA_KODU').Value:= (exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,1].value);
FDQUERY1.Fields.FieldByName('PARCA_TANIMI').value:= (exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,2].Value);
FDQUERY1.Fields.FieldByName('PARCA_TANIMI_TURK').value:= (exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,3].Value);
FDQUERY1.Fields.FieldByName('GTIP').value:= (exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,4].Value);
FDQUERY1.Fields.FieldByName('TICARI_TANIM').value:= (exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,5].Value);
FDQUERY1.Refresh;
inc(EXCELDEKISATIR);
until exceldosyasi.ActiveSheet.cells[EXCELDEKISATIR,2].value='';//boş hücreye kadar oku
exceldosyasi.quit;
exceldosyasi := Unassigned;
FDQUERY1.First;
except
showmessage('DOSYA YOLU HATALI DOSYA YONUN DOĞRU KAYDEDİLDİĞİNDEN EMİN OLUNUZ')
end;