upravasm.ru
Главная » Материалы » IT info » Полезные советы

Экспорт данных из 1С в Excell в примерах

10 Февраля 2017, 23:36
Экспорт данных из 1С в Excell в примерах

Не смотря на то, что в 1С достаточно хорошо реализованы таблицы, иногда появляется необходимоть сохранить данные в Excel, и там их окончательно отредактировать, поскольку Excel обладает большими возможностями по редактированию, фильтрации и оформлению данных представленных в табличном виде.

Хочу заранее оговориться, здесь идет разговор именно о программном экспорте данных. Поскольку чтобы сохранить отчет в Excel достаточно нажать кнопку с дискеткой и выбрать тип файла “*.xls”. :)

Итак рассмотрим конкретную задачу - экспорт справочника контрагенты в таблицу Excel:

1. Необходимо создать новую обработку

2. Открыть модуль формы и процедуре Выполнить() прописать следующий код:

Процедура Выполнить()

//экспорт элементов справочника в таблицу Excel

Путь = “C:\temp\пример.xls”;//путь к файлу (он должен быть уже создан)

ОбЕхсеl = СоздатьОбъект(”Excel.Application”); //создаем объект Excel

РабочиеКниги = ОбЕхсеl.Workbooks; // ... объект книга

РабочаяКнига = РабочиеКниги.Open(Путь); // ...ссылка на определенную книгу

РабочийЛист = РабочаяКнига.Worksheets(1); //ссылка на первый лист в книге ка = СоздатьОбъект(”Справочиник.Контрагенты”); //переменная для перебора элементов справочника контрагенты ка.ВыбратьЭлементы();//перебор элементов + запись значений на рабочий лист сч=2;

Пока ка.ПолучитьЭлемент()>0 Цикл

РабочийЛист.Cells(сч,2).Value)=ка.Наименование;

РабочийЛист.Cells(сч,3).Value)=ка.ПочтовыйАдрес;

РабочийЛист.Cells(сч,4).Value)=ка.Телефоны; сч=сч+1

КонецЦикла;

//Экспорт закончен созранение и закрытие файла

РабочаяКнига=РабочаяКнига.Close;

КонецПроцедуры

PS: Поскольку обмен данными в данном примере реализован с помощью механизма OLE Automation, немного изменив код можно организовать подобным образом импорт в 1С базу из Excel, что на практике может оказаться гораздо полезнее.

Для того, например, чтобы присвоить значение элементу справочника контрагенты, достаточно выполнить следующий код: ка.Телефоны = СокрЛП(РабочийЛист.Cells(сч,4).Value)); ка.Сохранить();




Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Другие новости:

Азартное хобби и игровые автоматы
Чем важна удача в игре с игровыми автоматами
Дропбокс и ваши фотографии
Очередной фотопринтер от компании Canon
Новый уровень азарта с автоматами Пирамида в онлайн казино Вулкан
Что такое «компьютерные технологии» в целом?
Программа для учета на складе
Игровой слот Blade – Блейд в казино play-wulcan-online.com
ABBYY обновила FineReader до версии 12
Как приобрести и подключить веб-камеру к телевизору
Играем в игровой слот Леди Удача Делюкс от онлайн казино Вулкан
Приложение для изучения иностранных языков
Intel продемонстрировала самую быструю флешку
Поверка и калибровка манометров: особенности процедур
Выбираем новый жёсткий диск
Новый ноутбук от компании Acer
Казиноmaxbetslots— для тех кто ценит азарт
Свет увидел новый планшет MediaPad M2
Автоответчик для почтовых сообщений
Лечение в Мюнхене
 

[ Добавить новость ]