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

[iran888]

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

[omidsm]

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

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; 

[فرزاد دلفی باز]

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

[javidtaheri]

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

[javidtaheri]

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

[parnian]

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

[babak_delphi]

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

[babak_delphi]

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

[parnian]

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

[parnian]

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


با این error که member not found