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

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

экспорт в Excel!!!!!!!!!!!!! [D7]

golik ©   (2007-06-10 17:28:00) 

как указать формат ячеек?
1. выравнивание по горизонтали и вертикали по центру ?
2. переносить по словам ?
3. как указать высоту строки ?

---

Satyavan   (2007-06-16 11:04:00) [1]

Смотрите сайт
http://programmist.nm.ru
Все описано просто и понятно, проще не бывает.

---

YurikGL   (2007-06-15 22:00:00) [2]

Врод сюда ходят в этом случае... http://www.delphikingdom.com/asp/itemq.asp?mode=1&ItemID=2.

---

sniknik   (2007-06-15 15:43:00) [3]

> 1. 2. 3.
универсальный метод - записать в самом экселе макрос по нужным действиям и посмотреть сгенерированный код.

---

3fc   (2007-06-15 15:40:00) [4]

Читай справку по VBA.

---
ExcelApp: TExcelApplication;  //страница Servers палитры компонентов
ExcelWbook: TExcelWorkbook; //-/-
ExcelWSheet: TExcelWorksheet;  //-/-
---
 ExcelApp.Connect;  //подключение к COM-серверу: Excel
 ExcelWbook.ConnectTo(ExcelApp.Workbooks.Add(EmptyParam, 1)); //добавляем новую книгу
 ExcelWSheet.ConnectTo(ExcelWBook.Worksheets.Item[1] as _Worksheet); //ссылка на первый лист книги

 with ExcelWSheet.Range['A1', 'A1'] do // устанавливаем необходимые св-ва нужного диапазона
 begin
   ColumnWidth := 17;
   RowHeight := 51;  //высота строки
   NumberFormat := '@'; //текстовый формат ячейки
   HorizontalAlignment := xlCenter;  //выравнивание по горизонтали: по центру
   VerticalAlignment := xlCenter;  //выравнивание по вертикали: по центру
   WrapText := True;  //перенос по словам
   Orientation := 0;
   AddIndent := False;
   IndentLevel := 0;
   ShrinkToFit := False;
   ReadingOrder := xlContext;
   MergeCells := False;
 end;

 ExcelApp.Visible[1] := True;  //показать Excel
---

---

Наверх