Форум: "Базы";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

Работа с Excel   Найти похожие ветки 

← →
Denizzz   (2003-09-20 07:50) [0]

Добрых выходных всем!
Имеем:
Подгружаем 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; ...упс, запарился:)

---

← →
Leran2002   (2003-09-20 08:56) [1]

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;

---

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

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

---

← →
Denizzz   (2003-09-20 08:59) [3]

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

---

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

Форум: "Базы";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c