Вниз
Скачать: CL | DM;

Информация в примечании Excel   Найти похожие ветки 

 
nkoleda   (2004-05-07 08:34) [0]

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) [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



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

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



Память: 0.45 MB
Время: 0.019 c
1-1089355504
Курдль
2004-07-09 10:45
2004.07.25
Нужна функция сжатия изображения, но не TCanvas.StretchDraw


4-1086769691
Elf
2004-06-09 12:28
2004.07.25
Структруры и Винды


8-1084264983
Morgan128
2004-05-11 12:43
2004.07.25
HELP! Сигнатуры


14-1088689475
KilkennyCat
2004-07-01 17:44
2004.07.25
11500 дней!


1-1089622430
pavel_pavel
2004-07-12 12:53
2004.07.25
Копирование объектов




   Наверх