Способы обмена данными между программами MS Office, 1С

Строк=2; // Номер строки по умолчанию

Флаг=1; // Флаг в значении "Истина"

НазСпр="Клиенты";  // Ввод названия справочника

Таб.НоваяКолонка("Код","Строка"); // Подписываем таблицу значений

Таб.НоваяКолонка("Наименование","Строка");

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

Процедура Сформировать()

Справ="Справочник."+НазСпр;

Спр=СоздатьОбъект("Справочник.Клиенты");

Стр=строк;

Ексель=СоздатьОбъект("Excel.Application");  // Создаем СOM объект

Книга=Ексель.Workbooks.Open(каталог + "\" + файл,, 1); // Открываем файл в EXCEL

значен=Ексель.Cells(Стр,Колонка).Value;

Пока ПустаяСтрока(значен)=0 Цикл // покка ячейки таблицы EXCEL не пусты

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

Если Флаг=1 тогда  // При неповторяющихся значениях

Если Таб.Найтизначение(значен,,)=0 тогда // Если значение отсутствует в таблице значений

Спр.Новый(); // Создаем строку

Спр.УстановитьАтрибут("Наименование",значен);  // Записываем значение

Спр.Записать();

Таб.Новаястрока(); // Создаем строку

Таб.Установитьзначение(Таб.количествострок(),1,Таб.количествострок());

Таб.Установитьзначение(Таб.количествострок(),2,значен); // Записываем значения

Конецесли;

Иначе // С повторяющимися значениями

Спр.Новый();

Спр.УстановитьАтрибут("Наименование",значен);

Спр.Записать();

Таб.Новаястрока();

Таб.Установитьзначение(Таб.количествострок(),1,Таб.количествострок());

Таб.Установитьзначение(Таб.количествострок(),2,значен);

КонецЕсли;

Стр=стр+1; // Переходим в следующую строку

Конеццикла;

спр.Удалить(1); // Удаляем лишние строки из справочника и таблицы

Таб.удалитьстроку(Таб.количествострок());

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

Процедура Очистить() // Очистка справочника и таблицы значений

Спр=СоздатьОбъект("Справочник.Клиенты");

Спр.ВыбратьЭлементы();

Пока спр.ПолучитьЭлемент()=1 Цикл

спр.Удалить(1);

КонецЦикла;

Таб.УдалитьСтроки();

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

Процедура Открыть() // Открытие формы справочника

ОткрытьФорму("Справочник.Клиенты",);

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

3. Перенос данных их 1С в Exsel

Код программы EXCELL:

Private Sub CommandButton1_Click() 'Перенос из справочника 1С

Set V7 = CreateObject("V77.Application") 'Создаем объект - приложение 1С

Init = V7.Initialize(V7.RMTRADE, "/D", "") 'Инициализируем приложение

Sp = InputBox("Введите  название справочника", "Справочник", "Клиенты") 'Спрашиваем у пользователя  название справочника-истчника записей

Set Spr = V7.CreateObject("Справочник." & Sp) 'Используем введенный справочник

Cells(1, 1).Value = "Код" 'Подписываем колонки

Cells(1, 2).Value = "Наименование"

Stroka = 2 'Устанавливаем  первую строку для ввода

Spr.ПорядокКодов 'Сортируем справочник по коду

Spr.ВыбратьЭлементы 'Открываем справочник для выборки

Do While Spr.ПолучитьЭлемент() = 1 '

Cells(Stroka, 1).Value = Spr.Код 'копируем значения из  справочника в таблицу

Cells(Stroka, 2).Value = Spr.Наименование

Stroka = Stroka + 1 'Переходим  в следующую строку

Loop

Columns("A:B").EntireColumn.AutoFit 'Меняем ширину колонок

End Sub

Private Sub CommandButton2_Click() 'Процедура очищает лист и возвращает ширину колонок

Cells.Select

Selection.ClearContents

Columns("A:B").Select

Selection.ColumnWidth = 8.43

Cells(1, 2).Select

End Sub

Заключение

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

На основании изученного материала я постаралась развить способность разработки прикладного программного обеспечения, автоматизации работы с базами данных и документами, программирования бизнес-логики приложений, интеграции разнородных данных. Приобрела знания в структуре, особенности, достоинства и недостатки хранения данных в файлах различных форматов (TXT,DBF, HTML, XML), технологий OLE, узнала об их достоинства и недостатки. Рассмотрела понятия XML-cериализации, особенности сериализации простых и сложных типов данных в платформе «1С:Предприятие». Рассмотрела общие принципы планирования задач обмена данными, инфраструктура сообщений, принципы работы конфигурации «Конвертация данных».

Данная работа также способствует развитию компетенций:

• выгрузка данных из справочников и других объектов в формате DBFс помощью объекта XBase;
• чтение HTML-документов и извлечение текстов из них с помощью операторов языка разработки;
• выгрузка (в XML) и загрузка (из XML) объектов с различающейся структурой;
• описывать правила XLS-преобразований (XSLT);
• описывать правила XML-сериализацииc помощью механизма XDTO;

Приобрела такие навыки:

• выгрузка данных из справочников и других объектов в текстовый файл;
• загрузка/выгрузка данных из XML-файлов в справочник и наоборот с помощью методов «ПрочитатьXML()» и «ЗаписатьXML()»;
• создание распределенной базы данных, настройка порядка распространения данных, обмен данными между объектами и изменениями в конфигурации;
• создание правил конвертации и выгрузки для переноса данных между документами с учетом изменений относительно предыдущих событий синхронизации.

Личные качества:

внимание к деталям (внимательность);

логическое мышление;

творческое мышление;

мысленная визуализация.

 

 

 

 

 

 

 

 

 

 

 

Список использованной литературы

1. http://center-comptech.ru/st_kak_nastroint_obmen_info.html
2. http://pro1c.ru/com-1c.html
3. http://ru.scribd.com/doc/44543397/Информационные-технологии-Бухгалтерского-учета
4. http://www.osp.ru/cw/2001/03/8952/
5. http://www.pervyiurok.ru/Info/Internet_Development/gl4/gl4.html
6. Андрей Завьялов, Инна Завьялова. Экспорт/импорт данных в приложениях Microsoft Office 2007// КомпьютерПресс 2001 - №7.
7. Иллюстрированный самоучитель по VB .NET
8. Информатика. Лабораторный практикум для студентов 1 курса всех специальностей. – М.: ВЗФЭИ, 2006
9. Михайлов А. В.1С: Предприятие 7.7/8.0.: системное программирование. — СПб.:БХВ-Петербург, 2005. - 336 с: ил.
10. Наталия Елманова. Office XP и обмен XML-данными // КомпьютерПресс 2001 – 10.
11. Нуреев Р. М. Курс Микроэкономики [Текст]: учеб./ Р.М. Нуреев.- 2-е изд., изм.-М.,1997
12. Постовалов С. Н. Программирование в системе 1С:Предприятие 7. 7. (компонента "Бухгалтерский учет"): курс лекций. - Новосибирск, 2002. - 63 с.
13. Практикум по экономической информатике: Учеб.пособие. Ч.I / Под ред. Шуремова Е.Л., Тимаковой Н.А., Мамонтовой Е.А. – М.: Перспектива, 2000.
14. Фаронов, В.В. Delphi 2005. Язык, среда, разработка приложений [Текст]/ В.В. Фаронов.-СПб: Питер, 2005