سلام، چرا از كتابخانه ExcelXP استفاده نمي كنيد. كار باهاش خيلي راحته و امكانات زيادي داره.
uses ExcelXP ;
...
var
Xlapp1 : TExcelApplication;
Workbook1 : _Workbook;
Sheet1 : _WorkSheet;
range,data1: Variant;
...
begin
XLApp1:=TExcelApplication.Create(Application);
XLApp1.AutoConnect:=True;
XLApp1.AutoQuit:=True;
Workbook1:= XLApp1.Workbooks.Open('book.xls',null,null,
null,null,null,null,null,null,null,null,null,null, null,null,0);
Sheet1 := XLApp1.WorkSheets.Get_Item( 'Sheet1' ) as _WorkSheet;
Sheet1.Activate(0);
MaxRow := Sheet1.UsedRange[0].Rows.Count;
MaxCol := Sheet1.UsedRange[0].Columns.Count;
range := Sheet1.UsedRange[0];
data1:= range.Value; // All Data in This Range