چگونه داده ها را به 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