Автоширина страницы в Excel через OLE

17.12.11

Интеграция - Загрузка и выгрузка в Excel

Многие знают, как работать с Excel по OLE, но не все знают, как выставить автоширину страницы Excel из 1С.

Все нижесказанное относится к 1С 7.7. Насчет 1С 8.х зарекаться не буду, пока сам не попробую.

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

ПараметрыСтраницы=Excel.ActiveSheet.PageSetup;
ПараметрыСтраницы.LeftMargin=28.35; // 10мм
ПараметрыСтраницы.RightMargin=28.35; // 10мм
ПараметрыСтраницы.TopMargin=28.35; // 10мм
ПараметрыСтраницы.BottomMargin=28.35; // 10мм
ПараметрыСтраницы.CenterHorizontally=1; // центрируем по горизонтали например
ПараметрыСтраницы.CenterVertically=0;
ПараметрыСтраницы.Orientation=2; // ландшафтная ориентация
ПараметрыСтраницы.PaperSize=9; // лист А4
ПараметрыСтраницы.FitToPagesWide=1; // вмещать на один лист по ширине
ПараметрыСтраницы.FitToPagesTall=1000; // по высоте ограничим 1000 листами (можно и увеличить).

Но вот тут мы столкнемся с одной маленькой но неприятной сложностью. Нам нужно установить:

ПараметрыСтраницы.Zoom=0; // то есть типа "ложь", для того чтобы начали действовать параметры "FitToPages"

Но в результате наталкиваемся на ошибку выполнения метода. А все потому что свойство "Zoom" имеет тип "Variant" и из 1С невозможно напрямую установить свойство данного типа. Поэтому выкручиваемся следующим способом:

Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="javascript";
Скрипт.AddObject("ПараметрыСтраницы",ПараметрыСтраницы);
Скрипт.Eval("ПараметрыСтраницы.Zoom=False");

См. также

Загрузка банковской выписки для 1С 7.7 любой конфигурации

Банковские операции Загрузка и выгрузка в Excel Платформа 1С v7.7 Конфигурации 1cv7 Россия Бухгалтерский учет Платные (руб)

Решение предоставляет комплексную загрузку банковской выписки из CSV, XLS, TXT файла в 1С 7.7 любой конфигурации. Позволяет создавать документы выбранного вида, например "Строка выписки банка (приход/расход)", или многострочный табличный документ, например Выписка, для каждой операции из загружаемого файла банковской выписки. Загружает реквизиты документа, а также создаёт контрагентов и другие необходимые элементы справочников.

3588 руб.

29.07.2021    20778    13    22    

14

Загрузка документов в 1С (7.7) из табличных файлов Excel,OpenOffice,1C,DBF,TXT (обработка)

Файловый обмен (TXT, XML, DBF), FTP Загрузка и выгрузка в Excel Платформа 1С v7.7 Конфигурации 1cv7 Платные (руб)

Обработка решает поставленную задачу по вводу документов, а кроме того обладает важной функцией: настраивается на ассортимент конкретного поставщика, запоминая соответствие между его номенклатурой и «нашей». Т.е. фактически – является самообучающейся системой ввода накладных. У разных поставщиков могут быть накладные различного типа, с разным количеством полей, поэтому для каждого из них может быть сохранена своя собственная настройка диалоговой формы так, что любая поступающая накладная может быть обработана. По отношению к программе "1С:Предприятие 7.7" данное решение является внешними файлами. Для использования данного продукта не требуется вносить изменения в алгоритм существующих программ или используемых конфигураций.

2400 руб.

10.12.2009    76557    58    93    

68

Выгрузка товаров из 1С:Предприятия 7.7 "Торговля и Склад 9.2" в файл CSV для онлайн кассы МТС

Кассовые операции Оптовая торговля Розничная торговля Загрузка и выгрузка в Excel Оперативный учет 7.7 1С:Торговля и склад 7.7 Бухгалтерский учет Управленческий учет Абонемент ($m)

Данная обработка предназначена для выгрузки файла из программы 1С: Предприятие 7.7 Конфигурации «Торговля и Склад 9.2» в файл CSV для загрузки в кассу МТС. Тестирование проводилось на релизах 937 и 998. В теории должна работать на всех типовых релизах конфигурации «Торговля и Склад 9.2».

1 стартмани

07.02.2021    9963    5    Kuzya_brаtsk    1    

7

Выгрузка товаров из 7.7 для загрузки в личный кабинет АТОЛ для ньюджеров 91Ф, 92Ф и подобных

Оптовая торговля Загрузка и выгрузка в Excel Платформа 1С v7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Бухгалтерский учет Управленческий учет Абонемент ($m)

Выполняет выгрузку товаров (всех, только с признаком в прайсе, только из указанной папочки) с гибкой настройкой выгружаемых данных. Формируется файл в формате XLSX подходящий для прямой удаленной загрузки в кассовый аппарат АТОЛ 91Ф/92Ф и им подобных, имеющих управление через Личный кабинет АТОЛ (lk.atol.ru).

1 стартмани

31.01.2021    8170    2    &-rey    1    

3

Загрузка данных из файла XLS в Штрих-М Торговое предприятие 4.17.01

Розничная торговля Загрузка и выгрузка в Excel Платформа 1С v7.7 Конфигурации 1cv7 Розничная и сетевая торговля (FMCG) Россия Бухгалтерский учет Абонемент ($m)

Заполнение справочника номенклатуры и документа приходной накладной. Будет полезно для товароведов или менеджеров.

5 стартмани

20.02.2020    11234    0    Ignatov_mu    6    

3

Дополнение реквизитов номенклатуры из Эксель в 7.7. Групповое редактирование реквизитов номенклатуры 7.7 в списке

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Платформа 1С v7.7 1С:Комплексная 7.7 Управленческий учет Абонемент ($m)

Обработки группового дополнения данных о номенклатуре. Ввод веса и объема существующих товаров вручную в форму таблицы значений и затем запись в справочник Номенклатуры и Единиц. Закачка весов и объемов существующих товаров из Эксель в справочник Номенклатуры и Единиц. Загрузка внешних кодов товаров из Эксель в справочник Номенклатуры. Редактирование внешних кодов товаров в форме списка. Дозаполнение реквизитов существующих товаров из Эксель (ключевые поля - штрихкод, наименование, внешний код).

1 стартмани

11.10.2019    11916    2    ksnik    2    

2

Оптовая торговля. Обработки дистрибьютора для обмена с поставщиками и покупателями через Excel в 1С 7.7

Оптовая торговля Загрузка и выгрузка в Excel Платформа 1С v7.7 Конфигурации 1cv7 Оптовая торговля, дистрибуция, логистика Управленческий учет Абонемент ($m)

В данной публикации приведены примеры обработок обмена дистрибьютора с поставщиками и покупателями через Эксель. Создание товаров-новинок. Автоматическое формирование Заказа поставщику по продажам. Заполнение бланка заказа поставщику. Загрузка приходной накладной от поставщика. Загрузка любых справочников из Эксель, например товарных сертификатов. Выгрузка прайслиста в бланк заказа (создание бланка заказа). Загрузка заявки покупателя из произвольного файла Эксель. Загрузка заявки покупателя из бланка заказа.. Для работы требуется установленный MS Excel.

1 стартмани

08.09.2019    16262    10    ksnik    2    

3

Загрузка адресов произвольного формата (КЛАДР и нестандартных "грязных" адресов) в ФИАС современных конфигураций из 1С 7.7

Загрузка и выгрузка в Excel Обмен между базами 1C Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 1С:ERP Управление предприятием 2 Абонемент ($m)

Описание технологии загрузки любых адресов из 1С 7.7 с разложением по ФИАС в современные конфигурации 1C 8.3 на примере ERP. Предлагаемый способ просто чудо, он гарантирует результат, он очень простой и качественный! Моя обработка является синтаксическим анализатором, который подставляет в строку грязного адреса выражение "Дом №" и "Корпус", благодаря чему грязные адреса 7.7 сами очень хорошо раскладываются по значимым полям ФИАС - заполняется область, город, улица, дом, корпус.. все раскладывается само с помощью встроенного механизма современных конфигураций 1С 8.3, который написали сами сотрудники фирмы 1С!

1 стартмани

16.08.2019    19288    17    ksnik    12    

8
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. пользователь 19.11.08 20:09
Сообщение было скрыто модератором.
...
2. пользователь 19.11.08 20:12
Сообщение было скрыто модератором.
...
5. пользователь 19.11.08 20:27
Сообщение было скрыто модератором.
...
12. valent 72 09.09.12 19:34 Сейчас в теме
Спасибо!
а можно еще так:
Устанавливается в сантиметрах (наглядно)
ПараметрыСтраницы.LeftMargin = Эксель.Application.CentimetersToPoints(2);
ПараметрыСтраницы.RightMargin = Эксель.Application.CentimetersToPoints(1.7);
ПараметрыСтраницы.TopMargin = Эксель.Application.CentimetersToPoints(1);
ПараметрыСтраницы.BottomMargin = Эксель.Application.CentimetersToPoints(1);
ну и + еще
Колонтитулы:
ПараметрыСтраницы.RightHeader = "Стр. &P из &N";
ч/б печать:
ПараметрыСтраницы.BlackAndWhite = 1;
+
3. пользователь 19.11.08 20:13
Сообщение было скрыто модератором.
...
4. пользователь 19.11.08 20:16
Сообщение было скрыто модератором.
...
6. пользователь 19.11.08 20:36
Сообщение было скрыто модератором.
...
7. пользователь 19.11.08 20:40
Сообщение было скрыто модератором.
...
9. пользователь 19.11.08 20:53
Сообщение было скрыто модератором.
...
10. пользователь 20.11.08 10:51
Сообщение было скрыто модератором.
...
8. пользователь 19.11.08 20:42
Сообщение было скрыто модератором.
...
11. пользователь 20.11.08 10:59
Сообщение было скрыто модератором.
...
13. Tilirxs 17.11.15 18:49 Сейчас в теме
14. arkber 27.11.17 23:47 Сейчас в теме
Не работает. выдает ошибку Ошибка выполнения Microsoft JScript: 'False' - определение отсутствует. MS2010
+
16. rougudz 16.11.18 11:43 Сейчас в теме
(14)пиши false с маленькой буквы. у меня прокатило.
selesta; Boris_1c; +2
15. maljaev 789 28.11.17 21:20 Сейчас в теме
(14) Телепаты в отпуске.
+
17. Melvia 27.02.20 13:34 Сейчас в теме
В версии 8.3.13 получилось обойтись без скрипта, просто указала: ПараметрыСтраницы.Zoom=False;
+
Внимание! Тема сдана в архив