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

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

Работа с Excel [D5, Paradox]

Denizzz ©   (2003-09-20 07:50:00) 

Добрых выходных всем!
Имеем:
Подгружаем Excel -
Exl:=CreateOLEObject("Excel.Application");
Exl.WorkBooks.add(ExtractFilePath(ParamStr(0))+"ExcelForm\torg12.xls");
Вставляем данные -
...Exl.Cells[50,61].Value:=DataModule1.Esc.FieldByName("NoDov").AsInteger;
Exl.Cells[50,77].Value:=DataModule1.Esc.FieldByName("DateDov").AsDateTime;...
Вопрос:
А как определенному диапазону задать границы ячеек (то есть расчертить)?
Что-то вроде через Range; ...упс, запарился:)

---

Denizzz   (2003-09-20 08:59:00) [1]

Пасиба.
Разберусь.

---

Leran2002   (2003-09-20 08:57:00) [2]

ExcelApp.Range[ExcelApp.Cells[1, 1], ExcelApp.Cells[10, 10]].Borders.LineStyle := xlContinuous; :)

---

Leran2002   (2003-09-20 08:56:00) [3]

uses ActiveX, ComObj, ShlObj, Excel97;

var
ExcelApp:OleVariant;
...

ExcelApp := CreateOleObject("Excel.Application");

ExcelApp.Range[ExcelApp.Cells[1, 1], ExcelApp.Cells[NumRow, 8]].Borders.LineStyle := xlContinuous;

---

Наверх