Использование Microsoft Excel при работе Access

Интеграция Access с другими компонентами Office

Отправка данных по электронной почте

1. Выделите отправляемый объект базы данных.

2. Выполните команду или Файл/От­править/Сообщение (как вло­жен­ное) или Файл/Отправить/Сообщение.

3. В окне Отправка по почте укажите формат передачи (обычно HTML). Нажмите кнопку OK.

4. В окне Microsoft Outlook укажите получателей, тему и текст сообщения и нажмите кнопку Отправить (Send).

Интеграция реализуется технологиями OLE, автоматизации и ActiveX. Все они построены на компонентной основе объектов фирмы Mic­rosoft (COM ‑ Component Object Model). Компоненты имеют стан­дарт­ную структуру и могут использоваться в программных системах, раз­ра­бо­тан­ных на любом языке программирования, поддерживающем эту модель.

Технология OLE (Object Linking and Embedding ‑ связывание и внед­ре­ние объектов) обеспечивает обмен данными между приложениями путем связывания или внедрения объектов (рисунков, диаграмм, таблиц Excel, документов Word и др.) из одного приложения в другое. При­ло­жения, которые содер­жат объекты, называют клиентскими, а при­ло­же­ния, создающие объекты, называют серверными. При связывании объекта в приложении запо­ми­нается адрес файла с объектом (при изменении этого адреса связь раз­ры­вается), а при внедрении ‑ запоминается сам объект (исходный файл с объ­ектом можно удалить). Для вставки диаграммы используется объ­ект Диаграмма, который размещается на панели инструментов командой Сервис/Настройка/Команды/Элементы управ­лен­­ия/Диаг­рам­­ма. Объекты размещаются с помощью инструментов Сво­бод­­ная или Присоединенная рамка объекта (п. 3.6.3.2).

Автоматизация (OLE­­‑технология) обмена объектами между при­ло­­же­ниями средствами Visual Basic. В автоматизации участвуют два при­ло­жения: клиент (использует готовые объекты) и сервер (открывает доступ к объектам) автоматизации.

Для использования Microsoft Access в качестве клиента автома­ти­зации существуют четыре типа команд:

1. Объявление объектной переменной (указателя на экземпляр объекта) и создание пустого объекта, если указано слово New:

{Private|Dim|Public} <имя переменной> As [New] <тип объекта>

2. Присвоение переменной указателя на существующий объект:

Set<имя переменой>=Forms!<имя формы>!<имя элемента>.<имя объекта>

3. Создание пустого объекта:

Set <имя переменной>=CreateObject(“<сервер>.<тип объекта>”)

4. Создание ссылки на новый экземпляр объекта, размещенного в файле. Если по расширению определяется сервер, то второй параметр может быть опущен. Если имя файла не указано (“”), то используется уже открытый сервер:

Set<имя переменной>=GetObject(“<имя файла>[,“<сервер.<тип объекта>”])

Для работы с объектами следует подключить нужные библиотеки.

Microsoft Excel имеет следующие основные объекты: Application (само приложение Excel), Workbook (рабочая книга), Worksheet (элементы Workbook).

Для отладки следующих примеров создадим модуль c объявлением объектных пе­ре­менных, вызовем командой Вид/окно отладки окно отладки, в котором будем пос­ле­до­ва­тельно набирать и выполнять команды, указанные в примерах.

Примеры работы с существующим рабочим листом Microsoft Excel

Private xlSheet As Object‘объявление объектной переменной (лист таблицы)

set xlSheet=getobject(curdir & “\Товары.xls“,“Excel.Sheet“) ‘запуск Excel

?xlSheet.activesheet.cells(1,1) =”Сахар” ‘ввод текста “Сахар” в ячейку 1,1

?xlSheet.activesheet.cells(1,1) ‘вывод значения ячейки 1,1

xlSheet.activesheet.cells(2,2).Formula=“=a1+c6“ ‘ввод формулы в ячейку 2,2

‘xlSheet.close ‘закрытие рабочего листа с запросом на сохранение

xlSheet.close (false) ‘закрытие с сохранием без запроса на сохранение

set xlSheet=nothing ‘удаление объекта из памяти

Пример создания таблицы Excel из таблицы “Изделия” базы

(General)(Declarations) ‘раздел глобальных объявлений формы

Private xlSheet As Object 'объявление объектной переменной - лист

Private xlApp As Object 'объявление объектной переменной - приложение

Private Sub Кнопка0_Click() ‘процедура создания таблицы

Dim db As Database ‘объявление объектной переменной ‑ база данных

Dim rs As Recordset ‘объявление объектной переменной‑набор данных

Dim i As Integer, j As Integer ‘номера строк и колонок таблицы

Set db = CurrentDb() ‘ссылка на открытую базу данных

Set rs = db.OpenRecordset(“Изделия“, dbOpenTable) ‘открытие таблицы

DoCmd.Hourglass True ‘установка указателя мышки ‑ песочные часы

Set xlSheet = CreateObject(“Excel.Sheet“) ‘создание рабочего листа

Set xlApp = xlSheet.Parent.Parent ‘создание объекта Application

i = 1: j = 1 ‘номер первой строки и колонки создаваемой таблицы Excel

rs.MoveFirst ‘переход на первую запись таблицы “Изделия”

Do While Not rs.EOF ‘цикл чтения записей таблицы “Изделия”

For j = 1 To rs.Fields.Count ‘цикл чтения полей текущей записи

xlSheet.activesheet.cells(i, j) = rs.Fields(j - 1) ‘формирование ячеек

Next

rs.MoveNext ‘переход к следующей записи таблицы “Изделия”

i = i + 1 ‘номер следующей строки формируемой таблицы

Loop ‘конец цикла чтения записей таблицы “Изделия”

For j = 1 To xlSheet.activesheet.Columns.Count ‘цикл чтения столбцов

xlSheet.activesheet.Columns(j).Font.Size=14 ‘изменение размера шрифта

Next

DoCmd.Hourglass False ‘установка указателя мышки ‑ стрелочка

‘сохранение сформированной таблицы под именем “Изделия_Excel.xls”

xlSheet.SaveAs (CurDir & “\Изделия_Excel.xls“) ‘в текущем каталоге

xlApp.Quit ‘закрытие приложения Excel

End Sub

Дата добавления: 2014-12-10