ريختن سريع كل داده ها در Excel

[Zahed2008]

سلام، من مي تونم با استفاده از كتابخانه ExcelXP و دستورات زير بطور كلي داده ها رو از Excel بخونم:


var data1,range1 : variant;
....
range1 := Sheet1.UsedRange[0];
data1 := range1.Value; { Read All Data in This Range }
چطوري مي تونم پس از اعمال تغييرات اونها رو دوباره يه دفعه ذخيره كنم؟ (ذخيره سلول به سلول خيلي وقت گير هستش:عصبانی++:)
كسي مي تونه راهنمايي ام كنه؟

[Zahed2008]

سلام، خودم تو اينترنت پيدا كردم:


function RefToCell(ARow, ACol: Integer): string;
begin
Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);
end;
...
Sheet1.Range[RefToCell(1, 1), RefToCell(numRow,numCol )].Value2 := data1;
{ Save All Data in This Range }
اينم يه لينك با جزئيات بيشتر:
http://exampledelphi.com/delphi.php/files/export-text-file-to-excel-file/