Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как определить наличие Примечания у ячейки Excel

Автор: oleg153 21.3.2007, 18:42

Есть желание при определенном событии менять содержимое Примечания определенных ячеек Excel.
Но в свойствах Comment (Примечание) я не нашел как можно идентифицировать его наличие.
Попытка менять при его отсутствии вызывает ошибку.

Решаю так

Код


procedure TForm1.Button6Click(Sender: TObject);
var
 t:string;
begin
 if not VarIsEmpty(Excel) then
  begin
   try
    t:=WBook.WorkSheets[1].Cells[2,1].Comment.Text; // присваиваем для отлавливания ошибки отсутствия Примечания
   except
    WBook.WorkSheets[1].Cells[2,1].AddComment;
    WBook.WorkSheets[1].Cells[2,1].Comment.Visible :=false;
   end;
   WBook.WorkSheets[1].Cells[2,1].Comment.Text(Memo2.Text);
  end;
end;

Но может есть более гуманный вариант ?