Текущий архив: 2003.10.09;
Скачать: CL | DM;
Вниз
Работа с 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
