11
  ВНИМАНИЕ! При использовании кодов описанных ниже, уберите символ _ Давайте рассмотрим на примерах как это делается! =) Мне известно 2 способа: 1. Путем замены шаблонного текста в макете Wordа. 2. Путем вставки текста с...   9
  Конвертация таблиц из Excel в MXL - скачать Converter Excel v MXL: Для 8.х - Для 7.7 - // Выбор файла Microsoft Excel Procedure FileNameStartChoice(Element, StdProcessing) StdProcessing = False; DialogFile = New FileDialog(FileDialogMode.   3
  Я думаю, все сталкивались с однолистовым excel файлом из 1С, у которого на первый взгляд, нет возможности добавить листы. Все не так страшно - их просто скрыли или, что чаще всего - даже не отображали (обусловлено созданием...   2
  Процедура СохранитьТаблицуВФайлExcel(Таблица, ПолноеИмяФайла=" " , ОткрыватьДиалогВыбораФайла=Истина, ВыгружаемыеКолонки=" ") Экспорт Если ПустаяСтрока(ПолноеИмяФайла) ИЛИ ОткрыватьДиалогВыбораФайла Тогда Диалог =...

16.06.2010

Как в 1С:Бухгалтерия 8 ред.2.0 загрузить справочник номенклатуры из файла Excel

Получить доступ к облаку 1С:Фреш бесплатно на 30 дней!

Довольно часто в практике возникают ситуации, когда необходимо загрузить данные в программу 1С из таблицы Excel, например, загрузить справочник номенклатуры из прайс-листа или Приходную накладную из Расходной накладной поставщика в электронном виде присланной по e-mail.

Необходимость автоматического обмена особенно актуально, когда число элементов, которые необходимо вводить составляет десятки, сотни или даже тысячи, и ручной ввод такого объема данных является довольно трудоемкой работой. Одним необходимо загрузить данные один раз только при начале работы с программой, другим требуется ввод больших объемов данных постоянно в силу технологии своей работы.

Естественно нам хотелось бы избежать этих напрасных потерь сил и драгоценного времени в наш век электронного документооборота.

В таких случаях многие заказывают соответствующие обработки у собственных штатных программистов, фирм-франчайзи или сторонних разработчиков, но это дополнительные расходы и время.

Как быть, если по различным причинам такой возможности нет?

У каждого пользователя профессиональной версии 1С:Предприятие 8 подобная обработка уже есть! На диске ИТС!

Типовая обработка «ЗагрузкаДанныхИзТабличногоДокумента.epf», находиться в разделе: «Технологическая поддержка» > «Методическая поддержка 1С:Предприятие 8» > «Универсальные отчеты и обработки» >
D:1CIts\EXE\EXTREPS\UNIREPS82\UploadFromTableDocument

Обратите внимание, начиная с Февраля 2010 г. на диске ИТС данная обработка для конфигураций на платформе 8.1 находиться в другом разделе: «Технологическая поддержка» > «Методическая поддержка 1С:Предприятие 8» > «Платформа 1С:Предприятие 8.1» > «Универсальные отчеты и обработки» > «Загрузка данных из табличного документа».
D:1CIts\EXE\EXTREPS\UNIREPS81\UploadFromTableDocument

Обработка от самой фирмы 1С, является универсальной и позволяет загружать данные в любые конфигурации на платформе 1С:Предприятие 8, в любые справочники, документы и реестры сведений из файлов формата *.xls (Excel), *.mxl, *.txt, *.dbf.

Возможности обработки очень большие, и в рамках одной статьи, осветить все возможные варианты использования не представляется возможным. Рассмотрим только наиболее частые и востребованные примеры.

Пример 1. Загрузка справочника номенклатуры в 1С:Бухгалтерию 8 ред.2.0 из прайс-листа в Excel.
Пример 2. Загрузка справочника номенклатуры в 1С:Управление торговлей 8 из прайс-листа в Excel.
Пример 3. Загрузка справочника физических лиц в 1С:Зарплата и управление персоналом 8 из Excel. (скоро)
Пример 4. Загрузка приходной накладной в 1С: Управление торговлей 8 из документа Excel.

• Прайс-лист в Excel «ПрайсОнлайнХимСнаб.xls» — Microsoft Office Excel 97-2003 (.xls)
• Типовая конфигурация Бухгалтерия предприятия Редакция 2.0, релиз 2.0.12.2, платформа 8.2 (8.2.10.77)
• Необходимо загрузить в 1С из Excel наименования товаров и цены.

Из Прайс-листа необходимо загрузить справочник номенклатуры в 1С:Бухгалтерию 8.

Купить минимальный вариант ИТС на 1 месяц за 4818 руб.

1. Запускаем программу 1С

2. Для запуска обработки выбираем пункт меню «Файл»>«Открыть».

3. В отрывшемся окне находим файл обработки, который располагается на диске ИТС в каталоге \1CIts\EXE\EXTREPS\UNIREPS82\UploadFromTableDocument

Если предварительно вы скопировали файл обработки на свой компьютер, то можете выбрать его.

Откроется окно

Обратите внимание, что загрузка данных будет осуществляться в два этапа:

Устанавливаем «Режим загрузки» - Загрузка в справочник

«Вид справочника» - Номенклатура

5. В закладке «Табличный документ» нажимаем кнопку «Открыть файл», в появившемся окне выбора находим каталог, в котором у нас находиться прайс-лист в Excel из которого мы планируем загружать данные в 1С.

Первоначально файл может не отобразиться. Установите тип файла «Лист Excel (*.xls)»

Выбираем наш файл

Отражаются реквизиты карточки номенклатуры.

8. Настраиваем параметры загрузки наименований

Для удобства установим «Ручную нумерацию колонок»

На данном этапе интересует только «Наименование», поэтому снимаем галочки с полей, которые нас пока не интересуют

«Первая строка данных табличного документа» - смотрим наш прайс-лист, отбрасываем шапку, данные для загрузки начитаются с девятой строки - ставим «9»

«Не создавать новых элементов» - галочку НЕ ставим, опция нужна, если планируем изменять уже имеющиеся элементы

Строки «Наименование» и «Полное наименование» - устанавливаем Режим загрузки «Искать», «№ Колонки табличного документа» - в нашем прайс-листе наименование в третьей колонке - ставим «3»

В строке «Наименование» ставим галку в колонке «Поле поиска» (вторая колонка) - программа проверит наличие элемента с таким наименованием, и если таковой уже существует, то новый элемент с таким наименованием создаваться не будет.

Обратите внимание, что в программе 1С:Бухгалтерия 8 идентификация элементов справочников происходит по наименованию. Если осуществляется загрузка в уже не пустую базу данных, необходим визуальный контроль вводимых позиций, чтобы исключить повторный ввод и дублирование элементов.

Данное неудобство усугубляется, если планируется не просто однократная начальная загрузка справочников, а использование подобной автоматической загрузки данных в дальнейшем. Так как различное написание наименований, использование сокращений, знаков препинания и т.д. будет вызывать появление дублирующих элементов.

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

Строка «Родитель» - в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем папку (группу номенклатуры), в которую будем загружать данные из прайс-листа (в нашем случае «Бытовая химия»).

Строка «Базовая единица измерения» - в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем единицу измерения (в нашем случае - шт.)

Строка «Ставка НДС» - в нашем случае для всех загружаемых элементов устанавливаем НДС 18%, для этого в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «18%».

Если товары идут с разным НДС, который указывается в отдельной колонке загружаемого прайс-листа, то в колонке «Режим загрузки» установите «Искать» и номер соответствующей колонки прайс-листа в «№ Колонки табличного документа».

Строка «Услуга» - в колонке «Режим загрузки» выбираем «Устанавливать», в колонке «Значение по умолчанию» выбираем «Нет» (в нашем случае все позиции это товары).

Мы задали минимальные значения новых элементов справочника номенклатуры, которые позволят начать работать.

Для закрытия месяца, распределения затрат, формирования бухгалтерской и налоговой отчетности необходимо будет задать значения «Номенклатурная группа» и «Статья затрат», для импортных товаров задать «Страна происхождения» и «Номер ГТД», но это можно будет сделать позже используя групповую обработку.

Если вы готовы задать значения данных реквизитов сейчас, то укажите.

Нажимаем «Загрузить» в правом нижнем углу, на вопрос нажимаем «Да»

8. Проверяем наличие новых элементов в соответствующей группе справочника номенклатуры.

9. Открываем карточку товара, проверяем правильность загрузки реквизитов

Если всё правильно, то можно приступить ко второму этапу - загрузке цен из прайс-листа в Excel.

Если в будущем планируется использовать данную процедуру загрузки данных с такими же настройками параметров загрузки, то рекомендуем сохранить текущие настройки. Для этого нажмите кнопочку «Сохранить настройки» и понятно назовите текущую настройку, например, «Загрузка наименований товаров из прайс-листа Excel».

В «Бухгалтерии предприятия» Ред.2.0 установка цен производится с помощью документа «Установка цен номенклатуры».

11. Устанавливаем «Режим загрузки» - «Загрузка в табличную часть».

Открывается журнал документов «Установка цен номенклатуры».

Здесь можно выбрать уже существующий документ, в который мы хотим добавить новые элементы, или создать Новый (рекомендуется), в документе указываем какой «Тип цен» будем загружать (в нашем примере «Розничная»).

Нажимаем «Ок» и сохраняем пока пустой документ.

Теперь выбираем этот новый сохранённый документ из журнала в строке «Ссылка».

В поле «Табличная часть» выбираем «Товары»

13. Обратите внимание, что сейчас нужно перейти закладку «Табличный документ» и снова выбрать наш прайс-лист в Excel из которого мы загрузили наименования, а теперь будем загружать цены (см. пункт 5).

14. Настраиваем параметры нагрузки

Опять устанавливаем «Первая строка данных табличного документа» - как и при загрузке наименований, ставим «9»

В строке «Номенклатура» устанавливаем режим загрузки «Искать», «№ Колонки табличного документа» - в нашем примере ставим «3»

В строке «Цена» устанавливаем режим загрузки «Искать», «№ Колонки табличного документа» - ставим номер колонки с ценами, которые хотим загрузить - в нашем случае «4».

В строке «Валюта» устанавливаем Режим загрузки «Устанавливать», выбираем валюту (в примере «руб.»)

Если в вашем прайс-листе цены товаров приведены в разных валютах, которая указывается в отдельной колонке загружаемого прайс-листа, то в колонке «Режим загрузки» установите «Искать» и номер соответствующей колонки прайс-листа в «№ Колонки табличного документа».

Нажимаем «Загрузить» и отвечаем «Да»

15. Открываем документ «Установка цен номенклатуры», в который загружали данные (нажав кнопочку с изображением лупы в строке «Ссылка»)

16. Проверяем документ, если всё в порядке нажимаем «Ок».

Цены должны установиться.

17. Открываем справочник номенклатуры, проверяем закладку «Цены» в карточке загруженных элементов.

Если всё в порядке, то можно приступать к загрузке остальных цен (оптовые, приходные и т.д.). Процедура аналогична.

Если в будущем планируется использовать данную процедуру загрузки данных с такими же настройками параметров загрузки, то рекомендуем сохранить текущие настройки. Для этого нажмите кнопочку «Сохранить настройки» и понятно назовите текущую настройку, например, «Загрузка Розничных Цен из прайс-листа Excel».

В следующий раз сможете загрузить сохраненные настройки, нажав на кнопку «Восстановить настройки» и выбрав нужную из списка.

Желаем успеха!

Продолжение следует...

Шавалеев Р.Ф.

Отвечает специалист:

Следует сразу обозначить, что изначально в 1с загрузка данных из excel не предусмотрена, для этого и существует внешний загрузчик 1с 8.3, а значит на Ваш вопрос ужеможно ответить – да, возможна.

Чтобы загрузка из excel в 1с 8.3 произошла без искажения данных – необходимо сначала подготовить таблицу непосредственно в excel. Список, который загружается в1с, должен быть правильно структурирован, т.е. не допускается наличие в одном столбце или одной ячейке несколько типов данных (количество, номер, фамилия и т.д.).

Если таблица будет предельно доступной, то и в 1с загрузка из excel пройдёт без каких-либо проблем. Далее следует выполнить обработку 1с для загрузки данных изexcel. Для совершения обработки заходим в меню Файл, указываем ЗагрузкаДанныхИзТабличногоДокумента.epf Во всплывшим окошке в строчке Режим загрузкинаписано Загрузка в справочник. Строчкой ниже указываем вид справочника – Номенклатура. Потом открываем файл и в списке ищем Лист Excel(*.xls), выбираем файл, который содержит необходимую нам информацию для загрузки. Далее перейдем в настройки, в строчке Первая строка данных табличного документа указывает цифру 2, поскольку в верхней строчке находится шапка нашей таблицы.

Потом пронумеровываем колонки, указывая Ручную нумерацию колонок. Отключаем все флажочки, ради этого существует определенная кнопка на панелейинструментов. Отмечаемые флажками поля Наименование и Полное наименование, режим не трогаем, пусть остаётся Искать, нумерацию колонок ставимсоответствующую таблице Excel.

Остаётся только указать единицу измерения и ставку НДС, если не поставить сразу, то в последствии придётся проставлять вручную по одной позиции. Отмечаемыйфлажками Ставка НДС Базовая единица измерения, режим – Устанавливать, устанавливаемые Значение по умолчанию и непосредственно18% в строчку Ставка. Подготовку завершили. Указываем Табличный документ и кликаем Контроль заполнения. Должна появиться табличка с информацией об отсутствии ошибок.

Теперь можно спокойно загружать. В программу 1с загрузка номенклатуры из excel завершена

Загрузка списка товаров в справочник номенклатуры — частая задача которая может появиться как в начале работы с 1с, так и в последствии. Решать ее можно по разному. Я предлагаю простой, в реализации, способ — с помощью загрузки из табличного документа. Попутно разберем, как создать удобную для работы структуру справочника, настроим иерархию с отбором по нужным свойствам товара в 1с Управление торговлей 11.4 #УТ11

Посмотрите видео — все показываю наглядно в 1С Предприятие!

В начале давайте разберем структуру файла эксель. Каждая его колонка соответствует реквизиту справочника номенклатуры и он в точности повторяет созданный шаблон на второй закладке обработки. То есть, в совокупности, это те данные, которые мы будем заполнять для каждой единицы товара. Значение артикула в моем примере является ключевым с обязательным заполнением. А также оно уникально не имеет дублей. Наименование и наименование для печати дублируют друг друга, но могут быть разными в случае заполнения соответствующей колонки. Далее идут колонки производителя и отличительных свойств товара. Свойства товара в 1с я создаю с помощью дополнительных реквизитов.

Необходимые настройки. Нужно поставить галочки в двух местах. Первое — на закладке «НСИ и администрирование», ищем «Настройка НСИ и разделов», нажимаем «Номенклатура», «Разрезы учета» — включаем «Множество видов номенклатуры».

Второе — закладке «НСИ и администрирование», ищем «Общие настройки», включаем возможность использовать дополнительные реквизиты и сведения.

Структуру всей номенклатуры я создал в справочнике Виды Номенклатуры. От этого справочника будет зависеть группировка товара в справочнике Номенклатура. Это более удобно, чем было раньше, с помощью групп. У каждого товара есть свои отличительные параметры. Например, у компьютерных корпусов разный форм фактор, у жестких дисков тоже есть параметр «форм-фактор». Как это завести в программу? Откроем любой вид номенклатуры на закладке дополнительные реквизиты. Эта закладка станет доступна после включения соответствующей настройки. Тут мы вводим, для каждого вида, те реквизиты, которые используются для данного товара. Например, у жесткого диска есть параметр «Интерфейс», а также есть параметр Форм фактор, только у корпусов он свой и значения в нем другие, не такие как у дисков. По этим, дополнительным реквизитам можно настроить фильтр, который будет очень быстро отбирать нужные позиции в списке товаров. Фильтр настраивается с помощью добавления дополнительного реквизита.

С настройками должно быть все понятно. Если нет, — пишите, попробуем разобраться.

Открываем обработку и переходим к загрузке. На первой вкладке находятся настройки загрузки. На второй, создается шаблон для выбранного Вида номенклатуры, на последней выводится результат загрузки. Делаем настройки, вставляем из эксель, подготовленную таблицу с товарами, нажимаем — загрузить.

Как загрузить товары из EXCEL в 1С, как настроить справочник Номенклатуры.

Данный способ простой. Его суть заключается в том, что объект ТабличныйДокумент имеет методы:

• Записать(< ИмяФайла>, < ТипФайлаТаблицы >) для выгрузки данных в файл;
• Прочитать(< ИмяФайла>, < СпособЧтенияЗначений >) для загрузки данных из файла.

Внимание!

Метод Записать () доступен как на клиенте, так и на сервере. Метод Прочитать () доступен только на стороне сервера. Необходимо помнить об этом
при планировании клиент-серверного взаимодействия.

Рассмотрим пример сохранения табличного документа в файл. Необходимо любым способом создать и заполнить объект ТабличныйДокумент, а выгрузка в файл осуществляется всего лишь одной строкой:

ТабДок. Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента. XLSX );

Здесь ТабДок — сформированный табличный документ, ПутьКФайлу — имя файла для выгрузки, ТипФайлаТабличногоДокумента.XLSX — формат создаваемого файла. Поддерживаются следующие форматы Excel:

• XLS95 — формат Excel 95;
• XLS97 — формат Excel 97;
• XLSX — формат Excel 2007.

ТабДок = Новый ТабличныйДокумент;
ТабДок. Прочитать(ПутьКФайлу, СпособЧтенияЗначенийТабличногоДокумента.Значение );

Здесь ПутьКФайлу — путь к загружаемому файлу Excel. СпособЧтенияЗначенийТабличногоДокумента.Значение определяет, каким образом нужно интерпретировать данные, считываемые из исходного документа. Доступны варианты:

• Значение;
• Текст.

Обмен через OLE

Обмен через технологию OLE automation, пожалуй, самый распространенный вариант программной работы с файлами Excel. Он позволяет использовать весь функционал, предоставляемый Excel, но отличается медленной скоростью работы по сравнению с другими способами. Для обмена через OLE требуется установка MS Excel:

• На компьютере конечного пользователя, если обмен происходит на стороне клиента;
• На компьютере сервера 1С:Предприятие, если обмен происходит на стороне сервера.

Пример выгрузки :

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Отключение вывода предупреждений и вопросов
Эксель. DisplayAlerts = Ложь;
// Создание новой книги
Книга = Эксель. WorkBooks. Add();
// Позиционирование на первом листе
Лист = Книга. Worksheets(1);

// Запись значения в ячейку
Лист. Cells(НомерСтроки, НомерКолонки). Value = ЗначениеЯчейки;

// Сохранение файла
Книга. SaveAs(ИмяФайла);

Эксель. Quit();
Эксель = 0;

Примеры чтения :

// —— ВАРИАНТ 1 ——

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application» );
// Открытие книги
Книга = Эксель. Workbooks. Open(ПутьКФайлу );

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

// Закрытие книги
Книга. Close(0 );

// Закрытие Эксель и освобождение памяти
Эксель. Quit();
Эксель = 0 ;

// —— ВАРИАНТ 2 ——

// Открытие книги
Книга = ПолучитьCOMОбъект(ПутьКФайлу );
// Позиционирование на нужном листе
Лист = Книга. Worksheets(1 );

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист. Cells(НомерСтроки, НомерКолонки). Value;

// Закрытие книги
Книга. Application. Qui t();

Для обхода всех заполненных строк листа Excel можно использовать следующие приемы:

// —— ВАРИАНТ 1 ——
КоличествоСтрок = Лист. Cells(1 , 1 ). SpecialCells(11 ). Row;
Для НомерСтроки = 1 По КоличествоСтрок Цикл
ЗначениеЯчейки = Лист. Cells(НомерСтроки, НомерКолонки). Value ;
КонецЦикла;

// —— ВАРИАНТ 2 ——
НомерСтроки = 0 ;
Пока Истина Цикл
НомерСтроки = НомерСтроки + 1 ;
ЗначениеЯчейки = Лист. Cells(НомерСтроки, НомерКолонки). Value;
Если НЕ ЗначениеЗаполнено(ЗначениеЯчейки ) Тогда
Прервать;
КонецЕсли;
КонецЦикла;

Вместо последовательного обхода всех строк листа можно выгрузить все данные в массив и работать с ним. Такой подход будет быстрее при чтении большого объема данных:

ВсегоКолонок = Лист. Cells(1 , 1 ). SpecialCells(11 ). Column;
ВсегоСтрок = Лист. Cells(1 , 1 ). SpecialCells(11 ). Row;

Область = Лист. Range(Лист. Cells(1 , 1 ), Лист. Cells(ВсегоСтрок, ВсегоКолонок));
Данные = Область. Value. Выгрузить ();

В таблице ниже приведены наиболее востребованные свойства и методы для работы с Excel через OLE:

Действие	Код	Комментарий
Работа с приложением
Установка видимости окна приложения	Эксель. Visible = Ложь;
Установка режима вывода предупреждений (выводить/не выводить)	Эксель. DisplayAlerts = Ложь;
Закрытие приложения	Эксель. Quit();
Работа с книгой
Создание новой книги	Книга = Эксель. WorkBooks. Add ();
Открытие существующей книги	Книга = Эксель. WorkBooks. Open(ИмяФайла );
Сохранение книги	Книга. SaveAs(ИмяФайла );
Закрытие книги	Книга. Close(0 );
Работа с листом
Установка текущего листа	Лист = Книга. WorkSheets(НомерЛиста );
Установка имени	Лист. Name = Имя ;
Установка защиты	Лист. Protect ();
Снятие защиты	Лист. UnProtect ();
Установка ориентации страницы	Лист. PageSetup. Orientation = 2 ;	1 — книжная, 2 — альбомная
Установка левой границы	Лист. PageSetup. LeftMargin = Эксель. CentimetersToPoints(Сантиметры );
Установка верхней границы	Лист. PageSetup. TopMargin = Эксель. CentimetersToPoints(Сантиметры );
Установка правой границы	Лист. PageSetup. RightMargin = Эксель. CentimetersToPoints(Сантиметры );
Установка нижней границы	Лист. PageSetup. BottomMargin = Эксель. CentimetersToPoints(Сантиметры );
Работа со строками, колонками, ячейками
Установка ширины колонки	Лист. Columns(НомерКолонки). ColumnWidth = Ширина ;
Удаление строки	Лист. Rows(НомерСтроки). Delete ();
Удаление колонки	Лист. Columns(НомерКолонки). Delete();
Удаление ячейки	Лист. Cells(НомерСтроки, НомерКолонки). Delete ();
Установка значения	Лист. Cells(НомерСтроки, НомерКолонки). Value = Значение ;
Объединение ячеек	Лист. Range(Лист. Cells(НомерСтроки, НомерКолонки), Лист. Cells(НомерСтроки1, НомерКолонки1)). Merge ();
Установка шрифта	Лист. Cells(НомерСтроки, НомерКолонки). Font. Name = ИмяШрифта ;
Установка размера шрифта	Лист. Cells(НомерСтроки, НомерКолонки). Font. Size = РазмерШрифта ;
Установка жирного шрифта	Лист. Cells(НомерСтроки, НомерКолонки). Font. Bold = 1 ;	1 — жирный шрифт, 0 — нормальный
Установка курсива	Лист. Cells(НомерСтроки, НомерКолонки). Font. Italic = 1 ;	1 — курсив, 0 — нормальный
Установка подчеркнутого шрифта	Лист. Cells(НомерСтроки, НомерКолонки). Font. Underline = 2 ;	2 — подчеркнутый, 1 — нет

Для того, чтобы узнать какое свойство нужно менять или какой метод вызвать можно воспользоваться макросами Excel. Если записать макрос с требуемыми действиями, то после можно посмотреть программный код на VBA записанного макроса.

Использование COMSafeArray

При выгрузке больших объемов данных из 1С в Excel для ускорения можно использовать объект COMSafeArray . Согласно определению из синтакс-помощника, COMSafeArray — объектная оболочка над многомерным массивом SafeArray из COM. Позволяет создавать и использовать SafeArray для обмена данными между COM-объектами. Проще говоря, это массив значений, который можно использовать для обмена между приложениями по технологии OLE.

// Создание COMSafeArray
МассивКом = Новый COMSafeArray(«VT_Variant» , ВсегоКолонок, ВсегоСтрок );
// Заполнение COMSafeArray
Для Стр = 0 По ВсегоСтрок — 1 Цикл
Для Кол = 0 По ВсегоКолонок — 1 Цикл
МассивКом. SetValue(Кол, Стр, Значение );
КонецЦикла;
КонецЦикла;
// Присвоение области листа Excel значений из COMSafeArray
Лист. Range(Лист. Cells(1 , 1 ), Лист. Cells(ВсегоСтрок, ВсегоКолонок)). Value = МассивКом ;

Обмен через ADO

Файл Excel при обмене через ADO представляет собой базу данных, к которой можно обращаться при помощи SQL-запросов. Установка MS Excel не требуется, но обязательно наличие драйвера ODBC, при помощи которого будет осуществляться доступ. Используемый драйвер ODBC определяется при указании строки соединения к файлу. Обычно требуемый драйвер уже установлен на компьютере.

Обмен через ADO заметно быстрее обмена через OLE, но при выгрузке нет возможности использовать функционал Excel для оформления ячеек, разметки страниц, задания формул и т.д.

Пример выгрузки :

Соединение = Новый COMОбъект(«ADODB.Connection»);

Соединение. ConnectionString = «

|Data Source=»+ ИмяФайла + «;
;
Соединение. Open(); // Открытие соединения

// Создание COM-объекта для команды
Команда = Новый COMОбъект(«ADODB.Command» );
Команда

// Присвоение текста команды для создания таблицы
Команда. CommandText = «CREATE TABLE [Лист1] (Колонка1 char(255), Колонка2 date, Колонка3 int, Колонка4 float)» ;
Команда. Execute(); // Выполнение команды

// Присвоение текста команды для добавления строки таблицы
Команда. CommandText = «INSERT INTO [Лист1] (Колонка1, Колонка2, Колонка3, Колонка4) values (‘абвгдеё’, ‘8/11/2017’, ‘12345’, ‘12345,6789’)» ;
Команда.Execute(); // Выполнение команды

// Удаление команды и закрытие соединения
Команда = Неопределено;
Соединение. Close ();
Соединение = Неопределено ;

Для создания нового листа и формирования его структуры можно воспользоваться объектами ADOX.Catalog и ADOX.Table . В этом случае код примет вид:

// Создание COM-объекта для работы с книгой
Книга = Новый COMОбъект(«ADOX.Catalog» );
Книга. ActiveConnection = Соединение;

// Создание COM-объекта для работы со структурой данных на листе
Таблица = Новый COMОбъект(«ADOX.Table» );
Таблица. Name = «Лист1» ;
Таблица. Columns. Append(«Колонка1» , 202 );
Таблица. Columns. Append(«Колонка2» , 7 );
Таблица. Columns. Append(«Колонка3» , 5 );
Таблица. Columns. Append(«Колонка4» , 5 );

// Создание в книге листа с описанной структурой
Книга. Tables. Append(Таблица);
Таблица = Неопределено;
Книга = Неопределено;

В приведенном примере в методе

Таблица. Columns. Append («Колонка1» , 202 );

во втором параметре указывается тип колонки. Параметр необязательный, вот некоторые значения типа колонки:

• 5 — adDouble;
• 6 — adCurrency;
• 7 — adDate;
• 11 — adBoolean;
• 202 — adVarWChar;
• 203 — adLongVarWChar.

Пример чтения :

// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection» );

// Установка строки соединения
Соединение. ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ ИмяФайла + «;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;» ;
Соединение. Open(); // Открытие соединения

// Создание COM-объекта для получения выборки
Выборка = Новый COMОбъект(«ADODB.Recordset» );
ТекстЗапроса = «SELECT * FROM [Лист1$]» ;

// Выполнение запроса
Выборка. Open(ТекстЗапроса, Соединение);

// Обход результата выборки
Пока НЕ Выборка. EOF() Цикл
ЗначениеКолонки1 = Выборка. Fields. Item(«Колонка1» ). Value; // Обращение по имени колонки
ЗначениеКолонки2 = Выборка. Fields. Item(0 ). Value; // Обращение по индексу колонки
Выборка. MoveNext();
КонецЦикла;

Выборка. Close();
Выборка = Неопределено;
Соединение. Close();
Соединение = Неопределено;

В строке соединения параметр HDR определяет как будет восприниматься первая строка на листе. Возможны варианты:

• YES — первая строка воспринимается как названия колонок. К значениям можно обращаться по имени и по индексу колонки.
• NO — первая строка воспринимается как данные. К значениям можно обращаться только по индексу колонки.

В приведенных примерах рассмотрено лишь несколько объектов ADO. Объектная модель ADO состоит из следующих объектов:

• Connection;
• Command;
• Recordset;
• Record;
• Fields;
• Stream;
• Errors;
• Parameters;
• Properties.

Выгрузка без программирования

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

Для сохранения табличного документа (например, результата отчета) можно вызвать команду Сохранить или Сохранить как… главного меню.

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

Для сохранения данных динамических списков (например, списка номенклатуры) необходимо:

1. Вывести данные в табличный документ при помощи команды Еще ⇒ Вывести список… ;
2. Сохранить табличный документ в требуемый формат.

Программы и игры