چگونه داده ها را به Excel بفرستم

چگونه می توان داده هایی را که از جدول یا query خوانده ام مستقیما به excel بفرستم ؟

ببینید این کد به دردتون می خوره

var 

  Excel : Variant; 

  Workbook : Variant; 

  Worksheet : Variant; 

  Cells : Variant; 

  Item : Variant; 

  X, Y : Integer; 

begin 

  Excel := CreateOleObject('Excel.Application');

  try

    // Make a new workbook in Excel 

    Workbook := Excel.Workbooks.Add; 

    // Create a new worksheet 

    Worksheet := Workbook.Worksheets.Add; 

    Worksheet.Activate; 

    // Fill in some cells with "Hello!" 

    Item := Worksheet.Range('A1:B8'); 

    Item.Value := 'Hello!'; 

    // Fill in a cell with "Goodbye" 

    Cells := Excel.Cells; 

    Item := Cells.Item(2,1); 

    Item.Value := 'Goodbye'; 

    // Save the workbook 

    Workbook.SaveAs('C:\Temp\Test.xls');

  finally 

    // Always make sure to tell Excel to quit 

    // or it will stay in memory 

    Excel.Quit; 

  end; 

end; 

لطفا جستجو کنید ....

TSCExportExce v3.2 کامپوننت جالبیه ::نوشتن::

دوست عزیز
دستور Righ to Left کردن یک SHeet در Excel چیست

از این خط ایراد می گیره . چی کار باید انجام بدم
CreateOleObject('Excel.Application');

OleServer, ExcelXP رو به قسمت Uses اضافه کن.

البته OleContainer بهتره
هم قوی و هم کار کردن باهاش خیلی سادست

بازم error می ده البته من excel97 را اضافه کردم چون xp را نمیشناسه

من در usesها این رو اضافه کردم ComObj حالا در موقع اجرا به این خط ایراد می گیره
Item := Worksheet.Range('A1:B8');


با این error که member not found