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

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

Office Partner

:موفق:

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

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'