Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.041 c