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

Я не могу прочитать свойство ячейки Cell.Comment.Text в Excel   Найти похожие ветки 

← →
VID ©   (2005-10-27 10:54) [0]

Сегодня проблема такая: на листе в экселе есть ячейка с примечанием. Получить текст этого примечания(коментария) в VBA можно очень просто, например
 Cells(1,1).Comment.Text, вернет нам текст примечания.

Однако, в дельфи, этот трюк не срабатывает.
Когда я пишу
Cell.Comment.Text, то получаю обычный AV.
В приведенном примере - Cell: Variant, которая достоверно содержит ссылку на ячейку с координатами [1,1].

Помогите разобраться, как получить текст коментария ячейки на дельфи ?

---

← →
VID ©   (2005-10-27 12:54) [1]

help

---

← →
Попов Виталий   (2005-10-27 13:29) [2]

Может быть проблема из-за того, что переменная Cell д.б. OleVariant. Вот накидал быстренько-работает.

procedure TForm1.Button1Click(Sender: TObject);
Var
Exl,WB,Sh,Cell:OleVariant;

begin
Exl:=CreateOleObject("Excel.Application");
WB:=exl.Workbooks.Add("C:\?????1.xls");
Sh:=Wb.WorkSheets[1];
Cell:=Sh.Cells[1,1];
Form1.Caption:=cell.Comment.Text;

end;

---

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

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



Память: 0.45 MB
Время: 0.039 c