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

[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'