ارسال اطلاعات به اکسل

[ali512]

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

[Babak-Aghili]

Office Partner

:موفق:

[majid_afra222]

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

var
Excel : Variant;
---------
try
Excel := CreateOleObject('Excel.Application');
Excel.Visible := True;
Excel.WorkBooks.Add;
Excel.WorkSheets[1].Name := 'اطلاعات';

Excel.Cells[3,1] := Data;

Excel.Range[Excel.Cells[1,1], Excel.Cells[10, 10l]] := DataVariantArray;


finally
Excel := UnAssigned;
end;
----------
که DataVariantArray رو بصورت زیر تعریف و استفاده می کنی

var
DataVariantArray : Variant;
-----------
DataVariantArray := VarArrayCreate([1, 10, 1, 10], varOleStr);

و مثل یه آرایه پرش میکنی

DataVariantArra[1,1] = 'Name'