Створення OLE-об"єктів
Структуроване сховище даних; Звільнюємо об'єктну змінну. Set ExcelSheet = CreateObject («Excel.Sheet»). Лабораторна робота № 3. Макрос створений 29.12.98. ExcelSheet.Application.Visible = True. Теоретична частина. Описуємо змінну. Автоматизація; ExcelSheet.Application.Quit. Текст макросу. Dim ExcelSheet As Object. Set ExcelSheet = Nothing. Формировка"; RunOle Макрос. Інтерфейс. Об'єкти; Sub… Читати ще >
Створення OLE-об"єктів (реферат, курсова, диплом, контрольна)
Лабораторна робота № 3
Тема: « Створення OLE-об'єктів »
Виконали: студенти Коваленко І.А. Поздняков Р.О.
Перевірив: викладач Смірнов В.В.
План
Теоретична частина Текст макросу
Теоретична частина
OLE (Object Linking and Embedding) — зв’язування та запровадження об'єктів.
OLE в якості будівельних блоків використовує велику кількість об'єктів. OLE містить нові об'єкти для реалізації наступних концепцій :
«Формировка» ;
Структуроване сховище даних ;
Ярлик ;
Автоматизація ;
Об'єкти ;
Інтерфейс.
OLE дозволяє об'єкту-клієнту з'єднуватися з об'єктом-сервером. З'єднання можливо здійснити зв’язуванням об'єктів (дані поза складового документа) або запровадження об'єктів (дані в середині складового документа).
Зв’язані дані можуть зберігатися поза файлом, який належить до OLE або у структурованому сховищі даних.
Складовий документ — спеціальний випадок структурованого сховища, для зберігання об'єктів в контейнерах прикладних програм.
OLE автоматизація — набір інтерфейсів, які дозволяють використовувати прикладні програми в якості OLE-об'єктів.
Уніфікована передача даних — набір інтерфейсів, які дозволяють клієнту та серверу обмінюватися даними.
інтерфейс прикладний сервер клієнт
Текст макросу
Sub RunOle ()
'' RunOle Макрос
' Макрос створений 29.12.98
'Описуємо змінну
Dim ExcelSheet As Object
'Створюємо вказаний об'єкт та повертає на нього зсилку
Set ExcelSheet = CreateObject («Excel.Sheet»)
' Робимо Excel видимим через об'єкт Application.
ExcelSheet.Application.Visible = True
' Поміщаємо текст в першу ячейку електронної таблиці.
ExcelSheet.Cells (1, 1).Value = «Це таблиця Exel, визвана із Word»
' Закриваємо Excel, визиваємо метод Quit об'єкту Application.
ExcelSheet.Application.Quit
' Звільнюємо об'єктну змінну.
Set ExcelSheet = Nothing
End Sub