| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Я не могу прочитать свойство ячейки Cell.Comment.Text в Excel [D7, WinXP]
VID © (2005-10-27 10:54:00)Сегодня проблема такая: на листе в экселе есть ячейка с примечанием. Получить текст этого примечания(коментария) в VBA можно очень просто, например
Cells(1,1).Comment.Text, вернет нам текст примечания.
Однако, в дельфи, этот трюк не срабатывает.
Когда я пишу
Cell.Comment.Text, то получаю обычный AV.
В приведенном примере - Cell: Variant, которая достоверно содержит ссылку на ячейку с координатами [1,1].
Помогите разобраться, как получить текст коментария ячейки на дельфи ?
Попов Виталий (2005-10-27 13:29:00) [1]Может быть проблема из-за того, что переменная 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;
VID (2005-10-27 12:54:00) [2]help
| |
