Есть функция экспорта :
Function ArendaVExcel()

Dim ExlDb As New Excel.Application
Dim WrkBk As Workbook, WrkSht As Worksheet, _
rngActive As Range, rngInput As Range, rngFormula As Range
Dim boolIsNewBook As Boolean, boolIsSheetName As Boolean
Const strSheetName = "ÎïëàòàÏîìåñÿ÷íîÀðåíäû"
Const strPathFile = "C:\Íåäâèæèìîñòü\ÀðåíäàÇàÏåðèîä.xls"


DoCmd.OutputTo acOutputQuery, "ÎïëàòàÏîìåñÿ÷íîÀðåíäû", acFormatXLS, "c:\Íåäâèæèìîñòü\ÀðåíäàÇàÏåðèîä.xls", False

'Îòêðûâàåò îêíî Exñel â âèäå èêîíêè.
ExlDb.WindowState = xlMinimized
ExlDb.WindowState = xlMaximized
ExlDb.Visible = True

'çàãðóæàåòñÿ â Excel ôàéë.
Set WrkBk = ExlDb.Workbooks.Open(strPathFile)
'Âûïîëíÿåòñÿ ïîèñê ëèñòà ñ óêàçàííûì èìåíåì.
For Each WrkSht In WrkBk.Worksheets
If WrkSht.Name Like strSheetName Then
WrkSht.Activate
Exit For
End If
Next WrkSht

With WrkSht

Set rngInput = .Cells(2, .UsedRange.Column + _
.UsedRange.Columns.Count - 1)
Set rngActive = .Cells(.UsedRange.row + _
.UsedRange.Rows.Count - 1, .UsedRange.Column + _
.UsedRange.Columns.Count - 1)
Set rngFormula = .Cells(.UsedRange.row + _
.UsedRange.Rows.Count, .UsedRange.Column + _
.UsedRange.Columns.Count - 1)
'rngFormula.Offset(0, 0).Activate 'Ôîêóñ íà ïîñëåäíþþ ñòðî÷êó
rngFormula.Formula = "=SUM(" & rngInput.Address(False, False) & ":" & rngActive.Address(False, False) & ")"
'
Set rngActive = .Cells(.UsedRange.row + _
.UsedRange.Rows.Count - 1, .UsedRange.Column + _
.UsedRange.Columns.Count - 1)
'rngActive.Offset(0, 0).Activate
Set rngInput = .Cells(.UsedRange.row + _
.UsedRange.Rows.Count - 1, 10)
rngActive.AutoFill Destination:=Range(rngInput.Address(False, False) & ":" & rngActive.Address(False, False)), Type:=xlFillDefault
rngInput.Offset(0, -1) = "Ñóììà:"
End With
'Ðàçâîðà÷èâàíèå îêíà Excel
'Rows("1:1").Select
' Selection.Insert Shift:=xlDown
Set rngFormula = Nothing
Set rngInput = Nothing
Set rngActive = Nothing
Set WrkSht = Nothing
Set WrkBk = Nothing
Set ExlDb = Nothing


End Function

Работает ровно через раз - 1 раз все нормально, второй выдает ошибку:
1004 Metod 'Range' of object '_Global' failed
и выделяет строку:
rngActive.AutoFill Destination:=Range(rngInput.Address(False, False) & ":" & rngActive.Address(False, False)), Type:=xlFillDefault

Учусь методом проб и ошибок - не откажите в помощи, плз.

Вопрос актуален!!!