Экспорт и Импорт данных 1С - Microsoft Excel

15223

Время чтения: 17 мин.

Нет времени читать? Отправить на почту

Экспорт
Процедура ОсновныеДействияФормыЭкспорт(Кнопка) - выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel с указанным именем, используя преобразование данных к типу число и типу строка;

Код 1C v 8.х

 Процедура ОсновныеДействияФормыЭкспорт(Кнопка) 
      

     Попытка 
      

     Попытка 
      

      

     // Загрузка объекта Microsoft Excel 
      

     Состояние("Выгрузка данных из 1С в Microsoft Excel..."); 
      

     ExcelПриложение = Новый COMОбъект("Excel.Application"); 
      

     Исключение 
      

     Сообщить("Ошибка при запуске Microsoft Excel." 
      

     + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание); 
      

     Возврат; 
      

     КонецПопытки; 
      

      

     // Создадим книгу, по умолчанию в ней уже есть листы 
      

     Книга = ExcelПриложение.WorkBooks.Add(); 
      

      

     // Используем первый лист книги Excel 
      

     Лист = Книга.WorkSheets(1); 
      

      

     // Сформировать шапку документа в первой строке листа 
      

     Колонка = 1; 
      

     Для каждого стр из ТП цикл 
      

     Если стр.Выгружать Тогда 
      

     Лист.Cells(1, Колонка).Value = стр.НазваниеРеквизита; 
      

     Колонка = Колонка + 1; 
      

     КонецЕсли; 
      

     КонецЦикла; 
      

      

     // Выгрузить данные справочника 
      

     выборка = Справочники[ИмяСправочника].Выбрать(); 
      

     СтрокаЛиста = 2; 
      

     Пока выборка.Следующий() Цикл 
      

     Колонка = 1; 
      

     Для каждого стр из ТП цикл 
      

      

     Если стр.Выгружать Тогда 
      

     Попытка 
      

     // Установить значение в строке и колонке 
      

     Если ТипЗнч(выборка[стр.НазваниеРеквизита])=Тип("Число") Тогда 
      

     // Установить формат для типа Число 
      

     Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "0,00"; 
      

     Лист.Cells(СтрокаЛиста, Колонка).Value = 
      

     Формат(выборка[стр.НазваниеРеквизита],"ЧГ=0"); 
      

     иначе 
      

     // Для всех других типов установим формат "Текстовый" 
      

     Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "@"; 
      

     Лист.Cells(СтрокаЛиста, Колонка).Value = 
      

     Строка(выборка[стр.НазваниеРеквизита]); 
      

     КонецЕсли; 
      

     исключение 
      

     // в случае ошибки вывести номер строки и колонки 
      

     Сообщить("Ошибка установки значения для: " + 
      

     выборка[стр.НазваниеРеквизита]); 
      

     Сообщить("Стр: " +СтрокаЛиста+ " Кол: " + 
      

     Колонка+ " Рек: " + стр.НазваниеРеквизита); 
      

     КонецПопытки; 
      

     Колонка = Колонка + 1; 
      

     КонецЕсли; 
      

      

     КонецЦикла; 
      

     СтрокаЛиста = СтрокаЛиста + 1; 
      

     Состояние("Экспорт из 1С в Excel " + СтрокаЛиста); 
      

     КонецЦикла; 
      

      

     // Сохраним созданную книгу в файл xls 
      

     Книга.SaveAs(имяФайла); 
      

      

     // Обязательно закроем соединение с COM объектом для освобождения памяти 
      

     ExcelПриложение.Quit(); 
      

      

     Сообщить("Файл выгружен успешно: " + имяФайла ); 
      

      

     Исключение 
      

     // Обработка ошибок экспорта данных из 1С в Excel 
      

     Сообщить("Ошибка записи данных файла :" + имяФайла); 
      

     Сообщить(ОписаниеОшибки()); 
      

     Попытка 
      

     ExcelПриложение.Quit(); 
      

     Исключение 
      

     КонецПопытки; 
      

     КонецПопытки; 
      

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

Импорт
Исходный код процедуры 1С для загрузки XLS файла:

Код 1C v 8.х

 Процедура ЧтениеXLSФайла(Элемент) 
      

      

     Если ПустаяСтрока(ИмяФайла) Тогда 
      

     Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel."); 
      

     Возврат; 
      

     КонецЕсли; 
      

      

     Попытка 
      

     // Загрузка Microsoft Excel 
      

     Состояние("Загрузка Microsoft Excel..."); 
      

     ExcelПриложение = Новый COMОбъект("Excel.Application"); 
      

     Исключение 
      

     Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание); 
      

     Возврат; 
      

     КонецПопытки; 
      

      

     Попытка 
      

     // Открытие файла Microsoft Excel 
      

     Состояние("Открытие файла Microsoft Excel..."); 
      

     ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла); 
      

     Исключение 
      

     Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание); 
      

     КонецПопытки; 
      

      

     Попытка 
      

     // Обработка файла Microsoft Excel 
      

     Состояние("Обработка файла Microsoft Excel..."); 
      

     // Читаем данные первого листа книги 
      

     ExcelЛист = ExcelФайл.Sheets(1); 
      

      

     // Определить количество строк и колонок выбранного листа книги Excel 
      

     xlCellTypeLastCell = 11; 
      

     ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row; 
      

     ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column; 
      

     Исключение 
      

     Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание); 
      

     // Закрыть COM соединение для экономии памяти 
      

     ExcelПриложение.Quit(); 
      

     КонецПопытки; 
      

      

     // Создание описателя типов для таблицы значений 
      

     КЧ = Новый КвалификаторыЧисла(15,2); 
      

     КС = Новый КвалификаторыСтроки(50); 
      

     Массив = Новый Массив; 
      

     Массив.Добавить(Тип("Строка")); 
      

     ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС); 
      

     Массив.Очистить(); 
      

     Массив.Добавить(Тип("Число")); 
      

     ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ); 
      

      

     // Очистить предыдущие значения 
      

     ТаблицаДокумента.Очистить(); 
      

     ТаблицаДокумента.Колонки.Очистить(); 
      

      

     // Создать колонки табличного документа 
      

     ТаблицаДокумента.Колонки.Добавить("Номер",ОписаниеТиповС,"Номер",5); 
      

     ТаблицаДокумента.Колонки.Добавить("Артикул",ОписаниеТиповС,"Артикул",11); 
      

     ТаблицаДокумента.Колонки.Добавить("Описание",ОписаниеТиповС,"Описание",25); 
      

     ТаблицаДокумента.Колонки.Добавить("Цена",ОписаниеТиповЧ,"Цена",6); 
      

      

     // Последовательное чтение строк с выбранного листа 
      

     Для Строка = 1 По ExcelПоследняяСтрока Цикл 
      

      

     // Обработка нажатия Ctrl + Break 
      

     ОбработкаПрерыванияПользователя(); 
      

      

     // Добавить данные в табличную часть экранной формы 
      

     Стр=ТаблицаДокумента.Добавить(); 
      

     Стр.Номер = Строка; 
      

     Попытка 
      

     Стр.Артикул = ExcelЛист.Cells(Строка, 1).Value; 
      

     Стр.Описание = ExcelЛист.Cells(Строка, 2).Value; 
      

     Стр.Цена = ExcelЛист.Cells(Строка, 3).Value; 
      

     Исключение 
      

     // Не редко происходит ошибка конвертации отдельной ячейки документа 
      

     Сообщить("Ошибка чтения строки файла Microsoft Excel." + Строка + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание); 
      

     КонецПопытки; 
      

     // Отобразить информацию о ходе выполнения обработки 
      

     Состояние("Обработка файла Microsoft Excel : " 
      

     + "строка " + Строка + " из " + ExcelПоследняяСтрока); 
      

      

     КонецЦикла; 
      

      

     // Закрыть COM соединение для экономии памяти 
      

     ExcelПриложение.Quit(); 
      

      

     // Отобразить результаты загрузки в форме элемента 
      

     ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента; 
      

     ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки(); 
      

      

     КонецПроцедуры // ЧтениеXLSФайла(Элемент)

Информация взята с сайта http://helpf.pro

Заказать звонок

Сэкономьте время! Оставьте заявку на консультацию специалиста 1С.

Ваше имя

Телефон *

Подтвердите, что вы не робот *

Нажимая на кнопку , Вы даете согласие на обработку своих персональных данных и соглашаетесь с политикой конфиденциальности

Вконтакте

Содержание статьи

Рассылка нашего блога

Электронная почта *

Политика конфиденциальности персональных данных.

Настоящая Политика конфиденциальности персональных данных (далее – Политика) действует в отношении всей информации, которую данный сайт, может получить о Пользователе во время использования (а также его субдоменов), его программ и его продуктов.
1. Определение терминов.
В настоящей Политике используются следующие термины:
– персональные данные – любая информация, относящаяся к прямо или косвенно определенному юридическому или физическому лицу (субъекту персональных данных);
– оператор персональных данных – Администрация сайта (далее – Администрация) – сотрудники, уполномоченные на управление, которые организуют и (или) осуществляют обработку персональных данных, а также определяет цели обработки персональных данных, состав персональных данных, подлежащих обработке, действия (операции), совершаемые с персональными данными;
– обработка персональных данных – любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных;
– конфиденциальность персональных данных – обязательное для соблюдения оператором или иным получившим доступ к персональным данным лицом требование не допускать их распространения без согласия субъекта персональных данных или наличия иного законного основания.;
– сайт — это совокупность связанных между собой веб-страниц, размещенных в сети Интернет по уникальному адресу (URL), а также его субдоменах;
– субдомены – это страницы или совокупность страниц, расположенные на доменах третьего уровня, принадлежащие сайту, а также другие временные страницы, внизу который указана контактная информация Администрации;
– пользователь сайта (далее Пользователь) – лицо, имеющее доступ к сайту, посредством сети Интернет и использующее информацию, материалы и продукты сайта.
2. Общие положения.
2.1 Назначение политики конфиденциальности.
2.1.1. Настоящая Политика конфиденциальности устанавливает обязательства Администрации по неразглашению и обеспечению режима защиты конфиденциальности персональных данных, которые Пользователь предоставляет .
2.2. Права и обязанности сторон.
2.2.1. Пользователь вправе:
2.2.1.1. Принимать свободное решение о предоставлении своих персональных данных, необходимых для использования сайта, и давать согласие на их обработку.
2.2.1.2. Обновить, дополнить предоставленную информацию о персональных данных в случае изменения данной информации.
2.2.1.3. Пользователь имеет право на получение у Администрации информации, касающейся обработки его персональных данных, если такое право не ограничено в соответствии с федеральными законами. Пользователь вправе требовать от Администрации уточнения его персональных данных, их блокирования или уничтожения в случае, если персональные данные являются неполными, устаревшими, неточными, незаконно полученными или не являются необходимыми для заявленной цели обработки, а также принимать предусмотренные законом меры по защите своих прав.
2.2.2. Администрация обязана:
2.2.2.1. Использовать полученную информацию исключительно для целей, указанных в п. 3 настоящей Политики конфиденциальности.
2.2.2.2. Принять меры для хранения конфиденциальной информации в тайне,
не разглашать без предварительного письменного разрешения Пользователя, а также
не осуществлять продажу, обмен, опубликование, либо разглашение иными
возможными способами переданных персональных данных Пользователя,
за исключением п. 6.3. настоящей Политики Конфиденциальности.
2.2.2.3. Принимать меры предосторожности для защиты конфиденциальности персональных данных Пользователя согласно порядку, обычно используемого для защиты такого рода информации в существующем деловом обороте.
2.2.2.4. Осуществить блокирование персональных данных, относящихся к соответствующему Пользователю, с момента обращения или запроса Пользователя, или его законного представителя либо уполномоченного органа по защите прав субъектов персональных данных на период проверки, в случае выявления недостоверных персональных данных или неправомерных действий.
2.3. Использование сайта Пользователем означает согласие с настоящей Политикой конфиденциальности и условиями обработки персональных данных Пользователя.
2.4. В случае несогласия с условиями Политики конфиденциальности Пользователь должен прекратить использование сайта.
2.5. Настоящая Политика конфиденциальности применяется к сайту.
2.6. Администрация не проверяет достоверность персональных данных, предоставляемых Пользователем.
3. Цели сбора персональных данных.
3.1. Персональные данные Пользователя Администрация может использовать только в связи с заключением договора, стороной которого является субъект персональных данных. Персональные данные не распространяются, а также не предоставляются третьим лицам без согласия субъекта персональных данных и используются оператором исключительно для исполнения указанного договора и заключения договоров с субъектом персональных данных.
4. Правовые основания обработки персональных данных.
Правовым основанием обработки персональных данных является:
– федеральные законы и принятые на их основе нормативные правовые акты, регулирующие отношения, связанные с деятельностью оператора;
– уставные документы оператора;
– договоры, заключаемые между оператором и субъектом персональных данных;
– согласие субъекта на обработку персональных данных;
5. Объем и категории обрабатываемых персональных данных, категории субъектов персональных данных.
5.1. Персональные данные, разрешённые к обработке в рамках настоящей Политики конфиденциальности, предоставляются Пользователем путём заполнения форм на сайте и включают в себя следующую информацию:
5.1.1. имя Пользователя;
5.1.2. контактный телефон Пользователя;
5.1.3. адрес электронной почты (e-mail).
5.2. К категориям субъектов персональных данных относятся работники оператора.
Порядок и условия обработки персональных данных.
6.1. Обработка персональных данных Пользователя осуществляется без ограничения срока, любым законным способом, в том числе в информационных системах персональных данных с использованием средств автоматизации или без использования таких средств.
6.3. Персональные данные Пользователя могут быть переданы уполномоченным органам государственной власти Российской Федерации только по основаниям и в порядке, установленным законодательством Российской Федерации.
6.4. Администрация принимает необходимые организационные и технические меры для защиты персональной информации Пользователя от неправомерного или случайного доступа, уничтожения, изменения, блокирования, копирования, распространения, а также от иных неправомерных действий третьих лиц.
6.5. Администрация совместно с Пользователем принимает все необходимые меры по предотвращению убытков или иных отрицательных последствий, вызванных утратой или разглашением персональных данных Пользователя.
7. Разрешение споров.
7.1. До обращения в суд с иском по спорам, возникающим из отношений между Пользователем и Администрацией, обязательным является предъявление претензии (письменного предложения или предложения в электронном виде о добровольном урегулировании спора).
7.2. Получатель претензии в течение 30 календарных дней со дня получения претензии, письменно или в электронном виде уведомляет заявителя претензии о результатах рассмотрения претензии.
7.3. При не достижении соглашения спор будет передан на рассмотрение Арбитражного суда.
7.4. К настоящей Политике конфиденциальности и отношениям между Пользователем и Администрацией применяется действующее законодательство Российской Федерации.
8. Дополнительные условия.
8.1. Администрация вправе вносить изменения в настоящую Политику конфиденциальности без согласия Пользователя.
8.2. Новая Политика конфиденциальности вступает в силу с момента ее размещения на сайте, если иное не предусмотрено новой редакцией Политики конфиденциальности.

Настройки

Назад к списку

Экспорт и Импорт данных 1С - Microsoft Excel

Заказать звонок

Рассылка нашего блога

Политика конфиденциальности персональных данных.

Поможем подобрать нужные приложения