Программирование связей

Отчёт

по практической работе №7

по дисциплине

ИНФОРМАЦИОННЫЕ СИСТЕМЫ И ТЕХНОЛОГИИ

на тему: «ПРОГРАММИРОВАНИЕ СВЯЗЕЙ»

Упражнение 1. Передача данных из Excel в Access

1. Создайте новый файл MS Excel (рис. 1) и сохраните его.

[pic 1]

Рисунок 1  Таблица исходных данных  в  Excel

1. Узнайте версию установленного на компьютере MS Excel. Для актуализации версии наберите следующий программный код (Рис.2)

[pic 2]

Рисунок 2 Программный код

[pic 3]

Рисунок 3 Версия Excel

1. Откройте MS Access и разработайте структуру таблицы, аналогично созданной в среде MS Excel (рис. 2).

[pic 4]

Рисунок 4  Таблица table1 базы данных Database1.accdb

1. Сохраните таблицу базы данных под именем table1 (рис.4).
2. Откройте окно редактора VBA и напишите следующий программный код (Рис.5).

[pic 5]

Рисунок 5 Программный код

1. Сравните полученный результата с приведенным на рис. 6

[pic 6]

Рисунок 6 Результат экспорта в базу данных Access

Упражнение 2. Передача данных из Access в Excel

1. Создайте новую базу данных и заполните ее данными(Рис.7).

[pic 7]

Рисунок 7 Таблица table2 базы данных Database2.accdb в режиме Конструктора

[pic 8]

Рисунок 8  Таблица table2 базы данных Database2.accdb в режиме Таблицы

1. Создайте новый файл в MS Excel.
2. Откройте редактор VBA и напишите следующий код.

[pic 9]

Рисунок 9 Код программы

1. Сравните полученный результат с представленным на рис.10

[pic 10]

Рисунок 10 Результат импорта из базы данных

Упражнение 3. Передача данных из Excel в Word

1. Создайте новый файл Microsoft Excel. Введите в ячейки A1:B15 рабочего листа произвольные данные. Они будут скопированы методом Copy и  добавлены из Excel в Word методом Paste (рис.11).

[pic 11]

Рисунок 11 Исходные данные для экспорта из Excel

1. Перейдите в среду VBA и добавьте к проекту модуль Module1.
2. Напишите программу передачи данных из Excel в Word посредством VBA

[pic 12]

Рисунок 12 Программный код передачи данных

1. Для запуска макроса нажмите клавишу
2. Сравните полученный результат с представленным на рис.13.

[pic 13]

Рисунок 13 Результат передачи данных из Excel в Word средствами VB

Упражнение 5. Передача данных из Excel в Word

1. Создайте документ Word (рис. 13), сохраните его, поместив файл в ту же самую папку, в которой будете размещать рабочую книгу Excel с макросом.
2. Создайте новый файл Microsoft Excel 2016.
3. Перейдите в среду VBA и добавьте к проекту модуль Module1.
4. Напишите программу передачи данных из Word в Excel посредством VBA (Рис.14). Здесь в строковой переменной strFile типа String указано имя файла: Primer_connection_word.docx. Этот файл открывается при помощи метода Documents.Open, его данные копируются методом Copy, затем в Excel методом Add добавляется новая рабочая книга и данные вставляются на активный рабочий лист методом Paste.

[pic 14]

Рисунок 14 Код для передачи данных

1. Сравните полученные данные с представленными на рис.15. Из рис. 15  видно, что таблица из документа Word разместились начиная с первого столбца А листа новой рабочей книги. Но в этой новой книге нет никакого макроса, и, чтобы он не потерялся, поместите его во вновь созданный модуль.  Текстовые данные и рисунки при передаче программными средствами VBA размещаются в первом столбце вновь созданной книги.

[pic 15]

Рисунок 15 Результат передачи данных из Word в Excel средствами VBA