Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Передача в Excel   Найти похожие ветки 

← →
Ежик ©   (2002-12-09 12:43) [0]

Подскажите, как передать данные из Grid в Excel, для последующей работы в Excele

---

← →
alxx ©   (2002-12-09 12:45) [1]

Procedure ExportToExcel(Grid:TDBGrid);
var
WorkBook, Cell: Variant;
s:string;
ds:TDataSet;
i,j:Integer;
dese:Char;
Begin
Excel:=CreateOleObject("Excel.Application");
Excel.Visible:=True;
Excel.DisplayAlerts:=false;
Excel.WorkBooks.Add;


Excel.SheetsInNewWorkbook := 1;
WorkBook := Excel.WorkBooks.Add;
Sheet := WorkBook.WorkSheets[1];
Sheet.Cells.VerticalAlignment := $FFFFEFF4;// xlCenter
Sheet.Name:="

---

← →
Ежик ©   (2002-12-09 12:48) [2]

> alxx © (09.12.02 12:45)

Cпасибо!

---

← →
Diouzshev   (2002-12-09 20:10) [3]

Медленно это!
посмотри на http://www.maxcomponents.net/
или грид ( http://devexpress.com) который сам умеет в эксель экспортировать.

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c