Klasördeki Tüm Excel Dosyalarından Veri Alma

[bünyamin68]

Saygıdeğer hocalarım cevaplarınız ve fikirleriniz için hepinize çok çok teşekkür ediyorum.Sorunumu sizlerin yönlendirmeleriyle aşağıdaki kod ile çözmüş bulunmaktayım. Şimdilik işimi görüyor ancak varsa hatalı yerler şurası olmamış ileride sana sıkıntı çıkarır dediğiniz yerler ya da şöyle yapsan daha iyi olurdu diye uyarılarınız olursa seve seve dikkate alırım.

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.xlsx', faAnyFile, SR) = 0 then
begin
  repeat
    if (SR.Attr <> faDirectory) then
    begin
      FileList.Add(SR.Name);
    end;
  until FindNext(SR) <> 0;
  FindClose(SR);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDir('C:\Users\senkr\OneDrive\Masaüstü\EKLİ LİSTE DOSYASI\',listbox1.Items);
end;

procedure TForm1.Button2Click(Sender: TObject);
Const
 xlCellTypeLastCell = $0000000B;
var
 Book: Variant;
 Excel, Sheet: Variant;
 Satir, Kolon: Integer;
 Str: String;
 i:integer;

begin
 for i:=0 to listbox1.Items.Count-1 do
begin
ListBox1.ItemIndex:=i;
Excel := CreateOleObject('Excel.Application');
begin

   begin
     Book  := Excel.WorkBooks.Open('C:\Users\senkr\OneDrive\Masaüstü\EKLİ LİSTE DOSYASI\'+listbox1.Items[listbox1.ItemIndex]);
     Sheet := Book.worksheets[1];
     for Satir := 2 to Excel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Row do
     begin
       Str := Sheet.cells[Satir, 2];
       FDQUERY1.Append;
       for Kolon := 1 to 7 do
       FDQUERY1.Fields[Kolon ].AsString := Sheet.cells[Satir, Kolon];
       FDQUERY1.Post;
     end;
     Excel.WorkBooks.Close;
     Excel.Quit;
     Excel := Unassigned;
     Sheet := Unassigned;
   end;
 end;
end;
end;