Импорт и экспорт

1.

Раздел «Работа с COMобъектом»

2.

1. Характеристика COM-объекта
Назначение: загрузка и выгрузка данных в/из 1С
2

3.

Синтаксис
3

4.

Пример: чтение данных из MS Excel
Для доступа из 1С к Excel создается СОМ- объект:
Попытка
ObjExcel = Новый COMОбъект("Excel.Application");
Исключение
Сообщить("Неудачная попытка подключения компоненты Excel.
Возможно, программа Excel не установлена на данном
компьютере!");
Возврат;
КонецПопытки;
4

5.

Благодаря полученной переменной ObjExcel теперь можно
управлять приложениемExcel.
1.
Открываем книгу EXCEL (файл, если угодно):
WrkBook = ObjExcel.WorkBooks.Open (ПутьКФайлу);
Где ПутьКФайлу — полный путь к файлу книги Excel (включая имя).
2.
Укажем лист книги с которого будем считывать данные:
WrkSht = ObjExcel. WorkSheets (НомерЛиста);
3. Нумерация листов книги начинается с 1. Общее количество листов
можно получить, используя следующую команду:
КоличествоЛистов = WrkBook.Sheets.Count;
5

6.

4. Лист можно выбрать по имени листа в книге:
WrkSht = WrkBook.WorkSheets(ИмяЛиста);
5. Имя листа в книге можно получить по номеру:
ИмяЛиста = WrkBook.Sheets(НомерЛиста).Name;
6.
Мы открыли книгу и выбрали необходимый нам лист. Теперь
посмотрим
сколько строк и колонок в выбранном листе:
ВсегоКолонок = WrkSht.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = WrkSht.Cells(1,1).SpecialCells(11).Row;
7.
Получим данные, хранящиеся в ячейке в строке НомерСтроки и в
колонке
НомерКолонки:
Значение = WrkSht.Cells(НомерСтроки, НомерКолонки).Value;
8. После выполнения всех действий с файлом Excel НЕ ЗАБЫВАЕМ закрыть
книгу:
6
ObjExcel.Application.Quit();

7.

Пример: выгрузка данных в MS Excel
1. Создть новую книгу EXCEL :
WrkBook = ObjExcel.WorkBooks.Add();
2. Выделить нужный лист книги в отдельный объект:
WrkSht = ObjExcel.Sheets(НомерЛиста);
3. Добавить в книгу новый лист:
WrkSht = ObjExcel.Sheets.Add();
4. Добавить в выбранную ячейку значение:
WrkSht.Cells(НомерСтроки, НомерКололнки).Value = Значение;
5. Сохранить изменения в книгу:
Попытка
WrkBook.SaveAs(ДиректорияВыгрузки);
Сообщить("Файл успешно сохранен!!!");
Исключение
Сообщить(ОписаниеОшибки()+ "Файл не сохранен!");
КонецПопытки;
6. Закрыть книгу
7

8.

Методы Excel, часто используемые при выгрузки
данных:
·
·
·
·
·
·
·
·
Видимость Excel:
Эксель.Visible = Видимость; (0 — Excel не виден, 1 — виден)
Создание новой книги (файла) Excel:
Книга = Эксель.WorkBooks.Add();
Сохранение книги Excel:
Книга.SaveAs(ИмяФайла);
Открытие существующей книги (файла) Excel:
Книга = Эксель.WorkBooks.Open(ИмяФайла);
Задание рабочему листу имени ИмяЛиста:
List.Name = ИмяЛиста;
Задание ширины колонок:
List.Columns(НомерКолонки).ColumnWidth = Ширина;
Скрыть всю колонку, в которой расположена ячейка:
List.Cells(НомерСтроки,НомерКолонки).ColumnWidth = 0;
Установка шрифта в ячейке:
List.Cells(НомерСтроки,НомерКолонки).Font.Name = ИмяШрифта;
8

9.

Пример импорта данных в документ из MS Excel

10.

Пример функции которая загружает все данные
MS Excel в табличную часть 1С
10

11.

Пример выгрузки данных из 1С в MS Excel
11

12.

Пример выгрузки данных в MS Excell
12

13.

13

14.

14

15.

15

16.

Рекомендуемая литература
1. Конфигурирование и администрирование информационных
систем на платформе 1С : учебное пособие / Т. В. Омельченко,
П. Н. Омельченко, А. М. Горюнова. - Оренбург : ИПК ОГУ, 2018. 230 с. - ISBN 978-5-7410-1996-2.
2. Справка системы 1С / Содержание / 1С: Предприятие /
Конфигурирование / Редактирование объектов конфигурации /
Регистры бухгалтерии
3. Система программ «1С: Предприятие 8» http://v8.1c.ru/
4. Форум для пользователей и разработчиков 1С http://forum-1c.ru
16