| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача в Excel

Ежик ©   (2002-12-09 12:43:00) 

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

---

Diouzshev   (2002-12-09 20:10:00) [1]

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

---

Ежик   (2002-12-09 12:48:00) [2]

> alxx © (09.12.02 12:45)

Cпасибо!

---

alxx   (2002-12-09 12:45:00) [3]

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:="

---

Наверх