Копирование в Excel

[Владимир Максимов]

Вариант решения подобных задач сильно облегчающий жизнь разработчика:

В файле шаблона Excel делаются прямые ссылки на другой лист. Т.е. напрямую в ячейках второго листа пишется нечто вроде: Лист1!A1

Сами же данные забрасываются на первый лист. Либо в специальные ячейки, либо, сплошным списком.

Если заброс данных идет сплошным списоком, то адресация на втором листе делается не к конкретной ячейке, а при помощи поисковых функций самого Excel. Например:

=ЕСЛИ(ЕНД(ВПР($B27;Отгрузка!$A:$N;3;ЛОЖЬ));0;ВПР($B27;Отгрузка!$A:$N;3;ЛОЖЬ))

Здесь ищется значение на листе с именем "Отгрузка" при помощи функции ВПР() по ключу из столбца "B". Функция ЕСЛИ(ЕНД(),0,ВПР()) нужна для того, чтобы подавить вывод значения #Н/Д, если по указанному ключу ничего не найдено.

Разумеется сам шаблон Excel получается значительно бОльшего размера (в байтах), его сложнее модифицировать и несколько больше времени тратится на его открытие (идет обновление связей при открытии). Однако имеем следующие преимущества:

1. Вся логика форматирования отчета (что и где расположить) целиком находится в файле Excel. Одно место для внесения модификаций. Причем это можно доверить самим пользователям.
   
2. Подготовка данных и их выгрузка в Excel существенно облегчается. На порядки! Код формирования такого отчета в Axapta становится "прозрачным" и легко модифицируемым.
   
3. Пользователи могут видеть исходные данные, из которых получается результирующий отчет и, если необходимо, делать дополнительный анализ. Например, почему некие данные не отобразились в результате или отобразились не те данные. Упрощается "разбор полетов".

[Gustav]

Владимир, от души поддерживаю!

Цитата:

Сообщение от Gustav

Для развесистых стандартных шаблонов (типа акта ОС-1) теперь тоже использую такой вывод с CopyFromRecordset. В файле шаблона создаю еще один лист, можно скрытый, на который вывожу одну строку с необходимыми данными. А в ячейках самого шаблона прописываю формулы-ссылки на ячейки этой выводимой строки. Подход родился в процессе решения задачи по пакетной печати нескольких тысяч актов ОС-1. Один CopyFromRecordset вместо многих присваиваний Range.Value(...) увеличил скорость процесса примерно в 30 раз (иначе можно было бы тихо загнуться на этой печати).

Я использую 3 листа:

- "Бланк" - собственно сформатированный бланк, который подается на печать; в ячейках бланка находятся формулы, ссылающиеся на лист "ТекущаяСтрока" вида: =ТекущаяСтрока!B3.

- "ВыгруженныеДанные" - много строк, выгруженных из Аксапты при помощи CopyFromRecordset, начиная с ячейки B2 (в первой строке, c B1 - заголовки полей для удобства); с дополнительной колонкой A "Печатать?", которая по умолчанию заполняется "единичками" (о ней ниже).

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

В первой из этих двух строк находятся формулы, ссылающиеся на лист "ВыгруженныеДанные" вида (на примере ячейки B2): =ИНДЕКС(ВыгруженныеДанные!B:B, $A$2). В ячейке $A$2 содержится номер строки, которую надо напечатать. Этот номер меняется в цикле несложным макросом.

Ниже этой строки находится дополнительная строка, каждая ячейка которой ссылается на ячейку выше. Цель: замена 0 пустой строкой в тех случаях, когда отображение 0 на "Бланке" нежелательно. Формула в ячейке B3 такая: =ЕСЛИ(B2=0,"",B2)

Выгрузив данные, пользователь сам решает, какие именно строчки ему надо напечатать, выставляя 0 или 1 в колонке "Печатать?", после чего кнопкой запускает макрос, который бежит по колонке А и печатает бланк для тех строк, у которых в колонке A присутствует 1.

Листы, кнопка, макрос живут в файле *.xlt и при выгрузке пользователь получает своеобразное мини-АРМ для печати.