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

Как получить комментарий из ячейки 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)

---

← →
Тимохов ©   (2004-01-14 17:57) [6]

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

---

← →
Тимохов ©   (2004-01-14 17:57) [7]

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

---

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

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;

---

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

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



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