Кто знаком с моими статьями:
"Троянский конь" или "скрытые" возможности таблиц 1С
"... Игра ПЯТНАШКИ в ДВЕ СТРОЧКИ ВСЕГО..." (для Вашей коллекции)
Как из 1С правильно УКАЗАТЬ MS EXCEL как нужно печатать документы !
Из 1С записать формулу в ячейке MS EXCEL
Нарушая запреты (Доступ к VBA из 1С)
и.т.д...
тот знает мой "интерес" к таким вещам.
В платформе 8.* есть очень интересная и полезная возможность сохранять в качестве макета посторонние файлы (что в конфигурации, что в отдельно взятой внешней обработки)
Но и ОПАСНО ! Отсюда может "прилететь"
Давай на примере посмотрим код :
//************************Tatitutu (c) 2011 *************************************
Функция ПроверитьСуществованиеКаталога(ИмяКаталога) Экспорт
КаталогНаДиске = Новый Файл(ИмяКаталога);
Если КаталогНаДиске.Существует() Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции
//************************Tatitutu (c) 2011 *************************************
// не стал активировать эту процедуру - все делайте сами :-),
// чтобы потом на меня не ругались
//
//Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
// Объект=ПолучитьМакет("Макет");
// Для Сч=9 По 12 Цикл
// ИмяНашегоМеста="C:\Program Files\Microsoft Office\OFFICE"+Строка(Сч)+"\XLSTART\";
// Если ПроверитьСуществованиеКаталога(ИмяНашегоМеста) Тогда //
// Объект.Записать(ИмяНашегоМеста+"PERSONAL.XLS");
// КонецЕсли;
// КонецЦикла;
// Отказ=Истина;
//КонецПроцедуры
Процедура АйЯяЙНажатие(Элемент)
Объект=ПолучитьМакет("Макет");
Для Сч=9 По 12 Цикл
ИмяНашегоМеста="C:\Program Files\Microsoft Office\OFFICE"+Строка(Сч)+"\XLSTART\";
Если ПроверитьСуществованиеКаталога(ИмяНашегоМеста) Тогда
Объект.Записать(ИмяНашегоМеста+"PERSONAL.XLS");
КонецЕсли;
КонецЦикла;
КонецПроцедуры
//************************Tatitutu (c) 2011 *************************************
Процедура ВостановитьНажатие(Элемент)
// Вставить содержимое обработчика.
Для Сч=9 По 12 Цикл
ИмяНашегоМеста="C:\Program Files\Microsoft Office\OFFICE"+Строка(Сч)+"\XLSTART\";
Попытка
УдалитьФайлы(ИмяНашегоМеста+"PERSONAL.XLS");
Исключение
КонецПопытки;
КонецЦикла;
КонецПроцедуры
Вроде ничего страшного, но это ТРОЯНСКИЙ КОНЬ
для тех кто не знает - файл PERSONAL.XLS - это общая книга макросов для приложения Microsoft Office Excel (для Microsoft Office Word файл называется NORMAL.DOT)
Что он делает ? Вы не знаете ??? Тогда лучше вам покинуть данную статью.
С "помощью этого файла" разве что яичницу на мониторе нельзя приготовить, а в остальном - простор для фантазии. (можно настроить на дату, на событие, на результат и.т.д)
И все макросы будут выполнятся без вопросов "выполнить или нет"
И заметьте 1С вроде как бы не причем.
Код написан самый простой - только для примера.
Можете запустить обработку (ничего плохого и вредного в ней нет)
Потом открыть любую книгу Microsoft Office Excel или создать новую
Ну не ругайтесь :-) , мы же учимся. Посмотрите на заголовок активной книги...
Все, все - понял не нравится.
Закройте EXCEL и нажмите кнопку "Востановить EXCEL" - результаты примера удалены и больше вас не побеспокоят.
Еще раз повторяю - это самый наипростейший пример, только пример .
На то и щука, чтобы карась не дремал (с) Народная мудрость.
Будьте внимательны когда запускаете незнакомые обработки
а если уж запустили - знайте где примерно искать.
