آقای عبداله نوری من دنبال چند داده  از هر شیت اکسل می باشم یعنی 500 داده از 7000 سل 40 فایل اکسل  و ذخیره آن در اکسس

سلام
شما اگه بتونی 1 فایل اكسل رو باز كنی و اطلاعات رو از توش بخونی میتونی 40 تا كه نه 400 تا رو باز كرده و اطلاعات رو از توش بخونی.

روش باز كردن و خوندن سلولهای اكسل :
توجه كنید كه باید در uses  عبارت excelxp رو اضافه كنید.

procedure TForm1.Button1Click(Sender: TObject);
var
  Xlapp:TExcelApplication;
  wrkbk:_Workbook;
  wrkSheet:_Worksheet;
  range_start,range_end: Integer;
  i: Integer;
  acc_code: string;
  bed,sum_debit: Double;
begin
  Xlapp := TExcelApplication.Create(self);
  XLApp.Connect;
  XLApp.WorkBooks.Open('g:\test\5555.xls',null,null,null,null,null,null,null,null,null,null,null,null,null,null,0);
  WrkBk := XLApp.WorkBooks.Item[1];
  WrkSheet := wrkbk.WorkSheets.Get_Item(1) as _WorkSheet;
  if MessageDlg('نام sheet در اکسل : ' + wrkSheet.Name + ' می باشد ، آیا ادامه میدهید؟ ',mtConfirmation,[mbYes,mbNo],0) = mrno then
    exit;
  range_start := StrToInt(vartostr(1));
  range_end := StrToInt(vartostr(1420));
  for i := range_start to range_end do
  begin
    acc_code := vartostr(WrkSheet.Range[trim('E') + trim(IntToStr(i)),trim('E') + trim(IntToStr(i))].Value2);
    acc_code := trim(acc_code);

//    cctr_code := WrkSheet.Range[trim(cxTextEdit9.Text) + trim(IntToStr(i)),trim(cxTextEdit9.Text) + trim(IntToStr(i))].Value2;
//    cctr_code := trim(cctr_code);
    bed := WrkSheet.Range[trim('O') + trim(IntToStr(i)),trim('O') + trim(IntToStr(i))].Value2;
    sum_debit := sum_debit + bed;
  end;
end;


البته این یك مثال هستش و باید تغییرات رو خودتون بدید

کامپوننت های خاصی هستند که میتونن بعنوان دیتا سورس به فایل اکسل وصل بشن بعد با یک کامپوننت کوری یا تی تیبل میتونید از اونا بخونید یا بنویسید

تو سایت های کامپوننت یه سرچ بکنید کلی کامپوننت به شما معرفی میکنن