Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как вытянуть примечание из excel / 4 сообщений из 4, страница 1 из 1
11.11.2011, 22:46
    #37523139
Last1Cmen
Last1Cmen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытянуть примечание из excel
В Comment ком-объект и дальше непонятно как получить примечание

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

это что вообще такое ? как его в одинэсный код всунуть то ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2011, 15:23
    #37524220
AHDP
AHDP
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытянуть примечание из excel
Код: 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:31
    #37524228
Last1Cmen
Last1Cmen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытянуть примечание из excel
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
| Ответить | Цитировать | Написать  
14.11.2011, 13:00
    #37525300
Last1Cmen
Last1Cmen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вытянуть примечание из excel
а гиперссылка если есть вытягивается вот так

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

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


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