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
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

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

Сравнение HTC Flyer и Samsung Galaxy Tab 10.1
Где заказать хостинг?
Локальные сети - удобство их использования
Смартфон с навигацией - новинка мобильного конгресса в Барселоне
Почему перед играми в игровые автоматы Вулкан на деньги стоит вначале хорошенько потренироваться в бесплатном демо режиме
Будущее Intel на поприще планшетных компьютеров
Кнопка социальных закладок «ОднаКнопка»
Белые методы продвижения сайта
3D-принтер вместо пластического хирурга
Ультрабуки станут еще тоньше!
Наслаждаемся демо играми и играми на деньги на игровом портале new-vulkan-avtomat.com
Apple лишилась важнейшего «боевого» патента
INTEL ITANIUM 9500: еще больше вычислительных возможностей
Фриспины за регистрацию в онлайн казино: особенности и нюансы
Bliss Pad Q7011
Aspire с сенсорным дисплеем
Одни из лучших бесплатных игровых автоматов можно найти на игровом сайте Сasino X
А ты уже получил свои деньги?
Работа за $6000 и кризис экономики
В увлекательный игровой автомат Wild Water бесплатно и на реальные деньги можно сыграть только на портале казино делюкс
 

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