"Троянский конь" или "скрытые" возможности таблиц 1С

• Добавить свою публикацию
для этого требуется регистрация

Tatitutu

13.06.2012

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

+2

Итак начнем.

Заходим в конфигуратор 1С

Меню - Файл - Новый (Ctrl+N)- Создадим внешний отчет (обработку)

Переходим сразу на вкладку "Таблица"

на панели инструментов "Редактор таблиц"

есть кнопочка "Вставить новый OLE объект"

нажимаем, появится новый диалог

в данном пример нам нужен "Лист Microsoft Office Excel"

(для этого на компьютере должен буть установлен Excel)

в таблице появится знакомый Лист1 от Excel

выделяем его и нажимаем клавиши ALT+F11 (откроется встроенный редактор VBA)

не буду далеко вглублятся про язык, методы и свойства VBA...кому нужно сам найдет

продолжим - в нашем примере - я напишу команду в предопределенной процедуре Workboor_Open() аналогичную команде 1С - Сообщить("Привет посетителю Инфостарт"). Сохраняем проект, закрываем.

Снова кликнем на объект EXCEL в таблице - скорее всего появится следующий

диалог (поумолчанию МАКРОСЫ (их использование запрещено ограниченно)

(как обойте расскажу дальше)

нажмем "Не отключать макросы" и увидим прямо в конфигураторе окно:

в свойствах объекта пропишем строчку

(можно в Расшифровке , но можно и в Текст (но это другая история))

переходим в модуль обработки и пишем формулу Лист

(а можно и процедуру)

для примера покажу 2 варианта

1 вариант:

внедренный объект сохраняем как Личную книгу макросов

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

теперь барьера на использовании макроса на чужом компьютере больше нет

в конце можно будет удалить. Теперь нам доступны все возможности EXCEL и VBA

во втором Варианте можно вообще ничего не писать,

только в меню -  Действия - Свойства формы - поставим галочки

и при открытии обработки написать две строки.

Все нижеизложенное представлено исключительно в поучительных целях, И АВТОР НЕ НЕСЕТ НИКАКОЙ ОТВЕТСТВЕННОСТИ ЗА ПОСЛЕДСТВИЯ, КОТОРЫЕ МОГУТ ПРОИЗОЙТИ ВСЛЕДСТВИЕ ПРОЧТЕНИЯ ПРЕДЛОЖЕННОГО МАТЕРИАЛА 

Также возжожен доступ к объекту:(возможно интерактивный) 

// лист книги
 ЛистКниги=Объект.Sheets("Лист1");

 // Диаграмма на листе
 Диаграмма = Объект.Sheets("Диаграмма1");

// Заполним область данных для диаграммы:

 //доступ ячейки
ЛистКниги.Cells(1,1).Value = "До свидание...на память";

   
 Если кому нужен совет или помощь пишите в личку (вместе решим)