Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Вниз
Excel Найти похожие ветки
← →
Ann (2003-06-24 16:48) [0]Добрый день!
Подскажите пожалуйста, как при передаче данных в excel сделать у ячеек рамку.
← →
McSimm2 (2003-06-24 16:59) [1]
CurrC := sheet.Range[sheet.Cells[Arow,Acol], sheet.Cells[Arow+1,Acol]];
CurrC.MergeCells := True;
CurrC.Borders.LineStyle := 1;
???
← →
Ann (2003-06-24 17:02) [2]простите, не поняла... не поясните?
← →
McSimm2 (2003-06-24 17:04) [3]
procedure TFrm_main.ExcelReport();
var
Excel,CurrC,sheet,book : Variant;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Application.EnableEvents := false;
book := Excel.WorkBooks.Add;
sheet := Excel.ActiveWorkBook.WorkSheets.Add;
CurrC := sheet.Range[sheet.Cells[2,1], sheet.Cells[4,1]];
CurrC.MergeCells := True;
CurrC.Borders.LineStyle := 1;
Excel.Visible := true;
end;
← →
Ann (2003-06-24 17:07) [4]Выдает
variant does not reference an automatical object
← →
Романов Р.В. (2003-06-24 21:22) [5]Excel,CurrC,sheet,book : OLEVariant;
← →
Ann (2003-06-25 08:32) [6]
> Романов Р.В. © (24.06.03 21:22)
> Excel,CurrC,sheet,book : OLEVariant;
не помогло :(
← →
Lord Warlock (2003-06-25 08:55) [7]Например
var ISheet: ExcelWorksheet;
ISheet.Cells.Item[i+8,2].Borders [xlEdgeBottom].LineStyle:=xlContinuous;
а прочие константы можно посмотреть в файле Excel97.pas
← →
Palladin (2003-06-25 08:59) [8]что бы больше подобных вопросов не возникало, идем в экселе записываем макрос с действиями необходимыми, потом открывает редактор макросов и смотрим что и как, после воспроизводим на делфи.
← →
Ann (2003-06-25 09:08) [9]
> Palladin © (25.06.03 08:59)
спасибо.. просто еще не приходилось заниматься экспортом в эксель, а в книжке минимум информации, впрочем как и в хелпе..
← →
Ann (2003-06-25 09:09) [10]
> Lord Warlock © (25.06.03 08:55)
спасибо большое, помогло :)
← →
Vitek (2003-06-26 06:52) [11]Я делаю так:
With ExcelWorksheet1.Range["A1:C5",EP] do
begin
Borders[xlEdgeRight].LineStyle:= xlContinuous;
Borders[xlEdgeRight].Weight:= xlThin;
Borders[xlEdgeRight].ColorIndex:= xlAutomatic;
Borders[xlEdgeLeft].LineStyle:= xlContinuous;
Borders[xlEdgeLeft].Weight:= xlThin;
Borders[xlEdgeLeft].ColorIndex:= xlAutomatic;
Borders[xlEdgeTop].LineStyle:= xlContinuous;
Borders[xlEdgeTop].Weight:= xlThin;
Borders[xlEdgeTop].ColorIndex:= xlAutomatic;
Borders[xlEdgeBottom].LineStyle:= xlContinuous;
Borders[xlEdgeBottom].Weight:= xlThin;
Borders[xlEdgeBottom].ColorIndex:= xlAutomatic;
Borders[xlInsideHorizontal].LineStyle:= xlContinuous;
Borders[xlInsideHorizontal].Weight:= xlThin;
Borders[xlInsideHorizontal].ColorIndex:= xlAutomatic;
Borders[xlInsideVertical].LineStyle:= xlContinuous;
Borders[xlInsideVertical].Weight:= xlThin;
Borders[xlInsideVertical].ColorIndex:= xlAutomatic;
End;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c
