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]

← →
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;

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