Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

Обертка функций Excel на русском. Ускорение процесса разработки.

Платформа 1С v8.3
0. 57 24.10.19 09:21 Сейчас в теме
Устали переключаться с русского на английский и обратно при работе с таблицами Excel из 1С?
Сборка наиболее необходимых функций и методов работы с Excel, обернутых в функции 1С на русском языке.

Перейти к публикации

+ – Ответить
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. ZloyProger 8 28.10.19 10:58 Сейчас в теме
Плюсик в карму автору) Ещё бы знать по какой такой неведомой причине ком-объект экселя начинает "вредничать" и методы то срабатывают, то не срабатывают (помню маялся с определением последней строки - то искал, то не искал, в конце концов пришлось захардкодить :-()... Из-за этого отказался от чтения экселя, сразу как табличный документ читаю и там уже своё, родное ЖКК (правда только на небольших файлах, на больших и ком-объект экселя не спасает, там уже надо через ADO).
+ – Ответить
2. aspirator23 469 31.10.19 10:15 Сейчас в теме
Спасибо за функции. "цифАрки" - это из старославянского?
+ – Ответить
3. user717498 31.10.19 11:33 Сейчас в теме
Необходимо дополнить процедурой установки параметров страницы Excel для печати

Процедура УстановитьПараметрыСтраницыДляПечати(Excel,Книга,НомерЛиста)
//до обращения к процедуре должно быть прописано
//Excel= новый COMОбъект("Excel.Application");
//Книга = Excel.WorkBooks.Open(ИмяФайла);
//НомерЛиста = 1;
Лист = Книга.WorkSheets(НомерЛиста);
Лист.PageSetup.LeftMargin = Excel.CentimetersToPoints(2); //отступ слева 2 см
Лист.PageSetup.RightMargin = Excel.CentimetersToPoints(5/10); //отступ справа 0.5 см
Лист.PageSetup.TopMargin = Excel.CentimetersToPoints(1); //отступ сверху 1 см
Лист.PageSetup.BottomMargin = Excel.CentimetersToPoints(1); //отступ снизу 1 см
Лист.PageSetup.HeaderMargin = Excel.CentimetersToPoints(0); //верхний колонтитул 0 см
Лист.PageSetup.FooterMargin = Excel.CentimetersToPoints(5/10); //нижний колонтитул 0.5 см
Лист.PageSetup.Orientation = 1; //портрет, если 2 - ландшафт
Лист.PageSetup.Zoom = 100; //100% масшстаб,
//если по ширине страницы, то Лист.PageSetup.Zoom = False;
//и добавить 2 строки:
//Лист.PageSetup.FitToPagesWide = 1; - по ширине страницы
//Лист.PageSetup.FitToPagesTall = False;
Лист.PageSetup.RightFooter = "&p";//номер страницы в правом нижнем колонитутле (варинат "стр. &p")где p это англ "пи"
//вариант для верхнего колонитула Лист.PageSetup.RightHeader = "&p";

КонецПроцедуры
+ – Ответить
4. DmitryKotov 57 01.11.19 07:14 Сейчас в теме
(3) За добавку функций огромное спасибо.
У меня была мысль собрать это все в расширение
Ваша процедура в обертке будет выглядеть так (например) :

Получаем лист
Лист = Екс_ПолучитьЛист(КнигаExcel, ИмяНомерЛиста);


Процедура УстановитьПараметрыСтраницыДляПечати(Лист, ОтступСлева, ОтступСправа и т.д.) (а можно и структуру отступов и других параметров передать)

Лист.PageSetup.LeftMargin = Excel.CentimetersToPoints(ОтступСлева); //отступ слева 2 см (или СтруктураОтступов.ОтступСлева
Лист.PageSetup.RightMargin = Excel.CentimetersToPoints(ОтступСправа); //отступ справа 0.5 см

....
и т.д.
....

Если ЕстьFooter (если передали нижний колонтитул, то делаем

Лист.PageSetup.RightFooter = "&p";//номер страницы в правом нижнем колонитутле (варинат "стр. &p")где p это англ "пи"
//вариант для верхнего колонитула Лист.PageSetup.RightHeader = "&p";

КонецПроцедуры
+ – Ответить
6. DmitryKotov 57 01.11.19 07:17 Сейчас в теме
(3) добавлю чуть-позже
+ – Ответить
5. DmitryKotov 57 01.11.19 07:16 Сейчас в теме
(2) :)
что-то вроде того :)
копи-паст с какой-то статьи
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
Честный Знак. Что будет если списать 20тыс кодов маркировок  0.54 $m Dev
Не могу зайти на сайт электронного бюджета https://ssl.budgetplan.minfin.ru/  1 $m Финансы Цифровая подпись
Полные права без входа в конфигуратор, как настроить?  0.89 $m Admin
Сертификаты номенклатуры  0.2 $m Dev
Обязательный реквизит реализации  0.05 $m Admin ERP2
Внешние печатные формы добавить печать и подпись  0.24 $m Dev Платформа 1C v8.2
Запрос по регистру БУ не показывает субконто  0.5 $m Dev БП2.0
Работа с криптографией в Web клиенте  5 $m Dev
Выгрузка номенклатуры из КА в POS-терминал Cбербанка  0.21 $m Dev КА2
Обязательный реквизит  0.04 $m Admin ERP2
Проблема производительности УТ  0.15 $m HighLoad
ERP: Расчёт цены от цены закупки сырья и материалов  0.5 $m Учет ERP2
Формирование запроса Odata со связанными сущностями  0.05 $m Обмен УТ10 Россия Программист
Смена кассы с Штриха на Атол. Настройка РМК  0.24 $m Dev КА2 v8
Удалить область из табличного документа  0.1 $m Dev
сумма товарных позиций больше суммы оплаты  0.04 $m Admin 1cv8.cf КА2 1С
КА 2.4 прослеживаемые товары не попадают в книгу покупок и продаж  1 $m Dev
ЗУП 3.1 Помогите разобраться. Корректировка регистра  1 $m Зарплата ЗУП3.x
Как реализовать в УФ, поиск без использования клавиш F4 и Enter  1 $m Dev КА1 КА2 УТ10 УТ11 v8::УФ
Была здесь полезная статья, в которой разбиралась работа с COM Excel, типичных ошибках по шаблонам из Интернета. Помогите найти  0.3 $m О сайте v8
Вакансии
Программист, аналитик, эксперт 1С
Санкт-Петербург
По совместительству
Программист 1С
Севастополь
зарплата от 150 000 руб. до 200 000 руб.
Полный день
Web-разработчик (PHP, Bitrix)
Санкт-Петербург
зарплата от 150 000 руб. до 150 000 руб.
Полный день
Администратор 1C
Москва
зарплата до 110 000 руб.
Полный день
Консультант-аналитик 1С
Москва
зарплата до 180 000 руб.
Полный день