Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Информация в примечании Excel [D5, D6, Win95/98]


nkoleda ©   (2004-05-07 08:34:00) 

excel,workbook:variant;
begin
excel:=CreateOleObject('Excel.Application');
Workbook := Excel.WorkBooks.Add('f:\info.xls');
excel.visible:=false;
ss:=WorkBook.WorkSheets[raz].Cells[1,n];

Так я получаю информацию из excel'ой ячейки. Так вот собственно вопрос: Как получить информацию из "примечания" ячейки?


Думкин   (2004-05-07 09:01:00) [1]

Range("D6").AddComment
   Range("D6").Comment.Visible = False
   Range("D6").Comment.Text Text:="отдел ИТ:" & Chr(10) & "fdsvbfdsbv" & Chr(10) & ""
   Range("D6").Select
   Range("D6").Comment.Text Text:="отдел ИТ:" & Chr(10) & "fdsvbfdsbv" & Chr(10) & ""
   Range("D6").Select
   ActiveCell.Comment.Visible = True
   Range("D6").Comment.Shape.Select True
   Range("D6").Comment.Text Text:="отдел ИТ:" & Chr(10) & "fdsvbfdsbv" & Chr(10) & "jk"
   Range("D6").Select
   Range("D6").Comment.Shape.Select True
   Range("D6").Comment.Text Text:="отдел ИТ:" & Chr(10) & "fdsvbfdsbv" & Chr(10) & "jk"
   Range("D6").Select
   ActiveCell.Comment.Visible = False
   Range("D7").Select


Наверх

Титульная страница Поиск, карта сайта Написать письмо