Работа через OLE с Excel происходит намного медленнее чем в самой Excel'е (не для кого не секрет). Поэтому иногда можно для увеличения скорости создавать в Экселе модуль и запускать его. К тому же бывают случаи когда необходимо добавить какую-нибудь кнопку или еще что-то в xls. Для таких случаев можно использовать следующий код:

Sub ModuleToXLS()
Dim XLS As Object
Dim M As Object

Set XLS = CreateObject("Excel.Application")
XLS.Visible = True
XLS.Workbooks.Add
Set M = XLS.ActiveWorkbook.VBProject.VBComponents.Add(1)

DoCmd.OpenModule "Macros"
M.CodeModule.AddFromString Application.Modules("Macros").Lines(1 + 1, Application.Modules("Macros").CountOfLines - 2)

End Sub


Сам текст модуля находится в модуле "Macros". Единственный трабл, что при выполнении команды "Компилировать все модули и сохранить", аксес будет ругаться на модуль "Macros" (в котором все написано в формате Экселя). Поэтому в начало этого модуля надо добавить строки:

#If True = False Then
'Текст модуля
---
---

#End If


Чтоб он не компилился.

А так еще короче:

#If 0 Then

:о)