سلام
اولا احتیاجی به پرداخت هزینه برای کامپوننت نبود. یه پیام خصوصی کوچیک میدادی برات ارسال میکرئم(بدلیل قوانین سایت نمیشه اینجا آپلود کرد.
ثانیاً در کدی که بالا قرار داده ام کاملا مشخصه که چیکار باید کرد!
XLSReadWriteII51.FileName := edt_XLSPath.Text;
XLSReadWriteII51.Read;
XLSReadWriteII51[0].CalcDimensions;
for R := XLSReadWriteII51[0].FirstRow to XLSReadWriteII51[0].LastRow do
begin
//خواندن اطلاعات هر ردیف
Param:= XLSReadWriteII51[0].AsString[2, R];
end;
در خط اول آدرس فایل رو به کامپوننت ارائه میدیم(توی کد بالا من آدرس رو از طریق یک Edit که توسط کاربر مشخص شده دریافت کردم. البته کاربر هم با استفاده از یک OpenDialog آدرس رو تعیین کرده) شما میتونی آدرس فایل رو اگر آدرس جاری برنامه تعیین کنی بصورت کد زیر
IncludeTrailingPathDelimiter(ExtractFilePath(Param Str(0))) + 'YourFileName.xls')
خط دوم که ثابته و دستور خواندن فایل اکسل رو به کامپوننت میده.
خط سوم داره میگه سربرگ شماره "0" رو محتویاتش رو استخراج کن. اگر فایل اکسل شما بیشتر از یک سربرگ داشته باشه با تغییر عدد 0 به 1 و بالاتر به بقیه سربرگ ها دسترسی خواهی داشت.
در خط بعد، با توجه به استخراج اطلاعات صفحه، با استفاده از یک حلقه روی ردیف های اون صفحه حرکت میکنیم و اطلاعات رو از ستون مورد نظر می خونیم
Param:= XLSReadWriteII51[0].AsString[2, R];
در کد بالا اطلاعات صفحه 0 و سطر R و ستون 2 در متغیر Param ریخته می شه
امیدوارم نحوه کار دستت اومده باشه
موفق باشیم