Форум: "Media";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

Информация в примечании 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 вся ветка

Форум: "Media";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.031 c