Скачать: CL | DM;

Помогите с диапазоном в Excel-e.   Найти похожие ветки 

← →
tytus   (2005-01-21 12:24) [0]

Добрый день мастера. Есть такой код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Excel.SheetsInNewWorkbook[0]:=1;
Excel.Workbooks.Add(EmptyParam,0);
Excel.Cells.Item[1,1].Columns.ColumnWidth:=6;
Excel.Cells.Item[1,2].Columns.ColumnWidth:=40;
Excel.Cells.Item[2,2].Rows.RowHeight:=30;
Excel.Cells.Item[1,3].Columns.ColumnWidth:=20;
Excel.Cells.Item[1,2].Value:="Тестирование Excel";
Excel.Range["A1:C3"].Borders.LineStyle:=xlDouble;///?????
Excel.Visible[0]:=true;
end;
Так вот никак не получается описать диапазон
["A1:C3"],["A1:C3"]- в справке по Excel (VBAXL10) пишеться как
["A1:C3"] а в делфи не получается.
Без ///???? все работает нормально.
Excel- компонент TExcelApplication.

---

← →
Sash ©   (2005-01-21 12:46) [1]

["A1:C3"] в дельфи будет ["A1:C3"]
попробуй так:
Excel.Range["A1:C3"].Select;
Excel.Range["A1:C3"].Borders.LineStyle:=xlDouble;

---

← →
tytus   (2005-01-21 14:20) [2]

>Sash
Не работает. Пишет Not enough actual parametrs.

---

← →
Style ©   (2005-01-21 14:26) [3]

Я просто число указывю и все работает..
Excel.Range["A1:C3"].Borders.LineStyle := 7;
можеть ему xlDouble не нравится??

---

← →
tytus   (2005-01-21 14:37) [4]

>Style;
Нет. Как раз после ...С3"] и ругается Not enough actual parametrs...

---

← →
Style ©   (2005-01-21 14:56) [5]

Может так?

Excel.Range[
 Excel.Cells.Item[1,1],
 Excel.Cells.Item[3,3]
          ].Borders.LineStyle := 7;

---

← →
tytus   (2005-01-21 15:10) [6]

>Style;
OK, помогло. Спасибо. В хелпе так и пишется, что это второй
синтаксис свойства Range.

---

← →
Yr2   (2005-01-21 16:09) [7]

to tytus:
вообще-то это пишется так: Range["A1", "C3"]

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.976 c