Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 мая 2024, 05:38

Сохраниение отчета из 1с в Excel

Автор vinceras, 17 янв 2011, 11:27

0 Пользователей и 1 гость просматривают эту тему.

vinceras

Программным путем в после формирования отчета добовляю в нужные ячейки примечания. Вот пример кода:


Для Каждого Строка Из ТаблицаПримечаний Цикл
КолонкаНоменклатура = Результат.НайтиТекст(СокрЛП(Строка.Номенклатура.Код));
КолонкаПериод = Результат.НайтиТекст(Формат(Строка.Дата, "ДФ=""дд.ММ.гггг"""));
Если (КолонкаНоменклатура <> Неопределено) и (КолонкаПериод <> Неопределено) Тогда
Если Строка.Поле = "План" Тогда
АдресЯчейки = Лев(КолонкаНоменклатура.Имя,Найти(КолонкаНоменклатура.Имя,"C") - 1);
Иначе
АдресЯчейки = Лев(КолонкаНоменклатура.Имя,1) + Строка(Число(Сред(КолонкаНоменклатура.Имя, 2, Найти(КолонкаНоменклатура.Имя,"C") - 2)) + 1);
КонецЕсли;
АдресЯчейки = АдресЯчейки +  Сред(КолонкаПериод.Имя,Найти(КолонкаПериод.Имя,"C"),СтрДлина(КолонкаПериод.Имя));
Область = Результат.Область(АдресЯчейки);
Попытка
Область.Примечание.Текст = Строка.Примечание;
Исключение
Сообщить("Не найдено примечание по адресу ячейки: " + АдресЯчейки, СтатусСообщения.Внимание);
КонецПопытки;
КонецЕсли;
КонецЦикла;


Далее Сохранить копию -> Лист Excel. При открытиии в Excel все примечании сохраняются, но если внести какие-либо изменения и пересохранить файл в Excel все примечания пропадают(вне зависимости от версии, что в 2003, что в 2007). Вопрос: косяк 1С, моего отчета или Ecxel?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск