ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как вытянуть примечание из excel
4 сообщений из 4, страница 1 из 1
Как вытянуть примечание из excel
    #37523139
Last1Cmen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Last1Cmen
Участник
В Comment ком-объект и дальше непонятно как получить примечание

в нете всем "помогает"
Range("E9").Comment.Text Text:="fffff"

это что вообще такое ? как его в одинэсный код всунуть то ?
...
Рейтинг: 0 / 0
11.11.2011, 22:46
| Ответить | Цитировать | Написать  
Как вытянуть примечание из excel
    #37524220
AHDP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AHDP
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Попытка
   Эксель = СоздатьОбъект("Excel.Application"); 
Исключение
   Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
   Возврат;
КонецПопытки; 

Книга = Эксель.WorkBooks.Open(ПутьКФайлу); 
Лист = Книга.WorkSheets(ИмяЛиста); 

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Comment.Text;
...
Рейтинг: 0 / 0
13.11.2011, 15:23
| Ответить | Цитировать | Написать  
Как вытянуть примечание из excel
    #37524228
Last1Cmen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Last1Cmen
Участник
AHDP
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Попытка
   Эксель = СоздатьОбъект("Excel.Application"); 
Исключение
   Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
   Возврат;
КонецПопытки; 

Книга = Эксель.WorkBooks.Open(ПутьКФайлу); 
Лист = Книга.WorkSheets(ИмяЛиста); 

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Comment.Text;


будет валиться (при пустых) что у меня и просходило

вот так работать будет


Код: plaintext
1.
2.
Если Не ПустаяСтрока(ExcelЛист.Cells(ТекущаяСтрока, ТекущаяКолонка).Comment) Тогда
	Описание = Строка(ExcelЛист.Cells(ТекущаяСтрока, ТекущаяКолонка).Comment.Text());
КонецЕсли;
...
Рейтинг: 0 / 0
13.11.2011, 15:31
| Ответить | Цитировать | Написать  
Как вытянуть примечание из excel
    #37525300
Last1Cmen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Last1Cmen
Участник
а гиперссылка если есть вытягивается вот так

Код: plaintext
1.
2.
3.
4.
5.
	Если Не ПустаяСтрока(ExcelЛист.Cells(ТекущаяСтрока, ТекущаяКолонка).Hyperlinks) Тогда
			Если ExcelЛист.Cells(ТекущаяСтрока, ТекущаяКолонка).Hyperlinks. Count () =  0  Тогда
				Иначе
				ГиперСсылка = СокрЛП((ExcelЛист.Cells(ТекущаяСтрока, ТекущаяКолонка).Hyperlinks( 1 ).Address()));
			КонецЕсли;
		КонецЕсли;

:) "Не" в условии не отрабатывает почему то потому и через "иначе"
...
Рейтинг: 0 / 0
14.11.2011, 13:00
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как вытянуть примечание из excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]