Как получить комментарий из ячейки Excel?

← →
pvv © (2004-01-13 16:39) [0]

я не могу получить текст коментария из ячейки в книге экселя
Делаю так:
ExcelApp.Range["A1","A1"].Comment.Text(здесь требует параметры)
и присваиваю все это Лабелу или Мемо
я так понимаю, что так можно присвоить коментарий, а как его считать из этой ячейки?

← →
pvv © (2004-01-14 16:28) [1]

Не ужели никто ни разу не сталкивался с такой проблемой????
Помогите пожалуйста или подскажите где можно почитать в инете.
Заранее благодарен!

← →
Тимохов © (2004-01-14 16:39) [2]

Читать ясно, где msdn.microsoft.com.
Сейчас посмотрю - самому интересно стало...

← →
Тимохов © (2004-01-14 16:44) [3]

Прикольно, но судя по документации к Excel 2000 - никак.
Самому интересно, что, правда, никак?

← →
pvv © (2004-01-14 17:09) [4]

В самом Экселе посредством примитивного прсвоения
ячейк.текст = Range["A1"].Comment.Text
и прокатывает от всей души, а вот в Дельфях никак не могу придумать, как их прочитать, может можно скопировать в буфер как-нибудь?

← →
Семен Сорокин © (2004-01-14 17:56) [5]

попробуй так:
comment:= ExcelApp.Range["A1","A1"].Comment.Text("", 1, false)

Если получится, то камень в технических писателей MS - там четко написано, что Test это метод для set comment и баста.

Если получится, то камень в технических писателей MS - там четко написано, что Text это метод для set comment и баста.

sorry, вот так:
var Comment: string; ExcelApp.Range["A1","A1"].Comment.Text("", 1, false, comment)
вот описалово в Excel2000.pas:

IComment = interface(IDispatch) ["{00024427-0001-0000-C000-000000000046}"] function Get_Application(out RHS: ExcelApplication): HResult; stdcall; function Get_Creator(out RHS: XlCreator): HResult; stdcall; function Get_Parent(out RHS: IDispatch): HResult; stdcall; function Get_Author(out RHS: WideString): HResult; stdcall; function Get_Shape(out RHS: Shape): HResult; stdcall; function Get_Visible(out RHS: WordBool): HResult; stdcall; function Set_Visible(RHS: WordBool): HResult; stdcall; function Text(Text: OleVariant; Start: OleVariant; Overwrite: OleVariant; out RHS: WideString): HResult; stdcall; function Delete: HResult; stdcall; function Next(out RHS: Comment): HResult; stdcall; function Previous(out RHS: Comment): HResult; stdcall; end;

Как получить комментарий из ячейки Excel? Найти похожие ветки