Форум: "Основная";
Текущий архив: 2004.01.26;
Скачать: [xml.tar.bz2];
ВнизКак получить комментарий из ячейки 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c