Использование объектов MS Office

Взаимодействие Access - Excel
Для использования в приложении Access таблиц из Excel выполняем следующие шаги:
Подключаем библиотеку объектов Excel (открываем VBA, меню TOOLS-REFERENCIS… и выбираем библиотеку)

Создаем командную кнопку на форме для вызова таблицы Excel и на событие нажатия кнопки помещаем текст программы
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim r As Integer, c As Integer ‘номер строки и номер столбца
Dim oApp As Object ‘объект приложение Excel
Dim bd As Database ‘Объект базы данных
Dim rst As Recordset ‘Объект набор записей
Dim fld As Field ‘Объект поле записи
Объект приложение можно задать и более определенно
Dim oApp As Excel.Application

Устанавливаем ссылки на объекты
‘ сначала подключаем базу данных используя функцию ‘ CurrentDb Set bd = CurrentDb
‘ устанавливаем ссылку на объект Recordset
Set rst = bd.OpenRecordset("SELECT * FROM Таблица1", _ dbOpenDynaset, dbReadOnly)
‘ устанавливаем ссылку на объект приложение Excel
Set oApp = CreateObject("Excel.Application")
‘ делаем приложение видимым
oApp.Application.Visible = True
‘ добавляем пустую книгу в приложение
oApp.Workbooks.Add
‘Альтернатива – открытие существующего файла
‘ ChDir "E:\diplom"
‘ Workbooks.Open Filename := "E:\diplom\MyFile.xls"

Передача данных из БД в Excel
Для передачи данных из БД в Excel используем объект Recordset и значения полей – объект Field
'все дальнейшие действия со страницей 1
With oApp.Workbooks(1).Sheets(1)
r = 1
c = 1
'Строим заголовки столбцов
For Each fld In rst.Fields
.Cells(r, c) = fld.Name
c = c + 1
Next

'Заполняем остальные строки записями
r = 2
While Not (rst.EOF)
c = 1 'Начало заполнения каждой строки
For Each fld In rst.Fields
.Cells(r, c) = fld.Value
c = c + 1
Next
r = r + 1 'Меняем номер строки
rst.MoveNext 'Переходим на следующую запись
Wend
End With
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click: ‘Обработка ошибок
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub

Передача данных из Access в Word

Запуск Word
Приложение Word запускается аналогично приложению Excel, но необходимо указать имя класса Word.Application и подключить соответствующую библиотеку
Microsoft Word 11.0 Object Library