Не могу разобраться с экспортом в excel

Function NTR4(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim i As Long, j As Long, NumStr As Long
 Dim CountRec As Long
 
 
Set dbs = CurrentDb()
 
Set rst = dbs.OpenRecordset("ЗапросРеквизиты", dbOpenSnapshot)
CountRec = rst.RecordCount 'определяем число строк в запросе
    With app.ActiveWindow.Selection 'ставим фокус на текущее окно
   
        'открываем запрос для перебора столбцов
         If CountRec > 0 Then 'смотрим, чтоб не пустой запрос
            rst.MoveLast 'переходим в конец набора строк - тем самым они гарантированно загружаются в переменную rstTable
            rst.MoveFirst 'возращаемся в начало набора строк
            If TrueBookmark("NTR4", .Document) Then 'если есть закладка
                .GoTo What:=wdGoToBookmark, Name:="NTR4" 'Перейти на закладку ZT - начало втыкания данных в таблицу
           End If
            'запоминаем номер строки таблицы где стоит начальная закладка
            j = .Information(wdEndOfRangeRowNumber)
            
            If CountRec > 1 Then
                'Вставим необходимое количество строк
                .InsertRowsBelow CountRec - 1
            End If
    .Tables(1).Cell(j, 1).Range = Nz(rst.Fields(1), "") 'индекс
        End If
        rst.Close 'закрываем рекордсет - при этом автоматически уничтожается и перенменная rstTable
    End With
    NTR4 = True 'ставим флаг успешного выполнения функции
    
Exit_:
    Exit Function
Err_:
    NTR4 = False
    Err.Clear
    Resume Exit_
End Function

Private Sub Кнопка18_Click()
On Error GoTo 999
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim obj As Excel.Range
    Dim xlFileName As String
     
    ' Определяем и проверяем имя файла
    xlFileName = Application.CurrentProject.Path & "\Приходный.xls"
    If Dir(xlFileName, vbNormal) = "" Then
        MsgBox "Файл не найден"
        Exit Sub
    End If
    
    ' Устанавливаем ссылку на страницу
    Set xlApp = CreateObject("Excel.Application") ' Открываем Excel
    Set xlBook = xlApp.Workbooks.Open(FileName:=xlFileName) ' Открываем файл
    Set xlSheet = xlBook.Sheets("Лист1") ' Выбираем лист книги
    xlApp.Visible = True ' Отображаем Excel
 
    ' Записываем данные в ячейки
    xlSheet.Range("F14").Value = Me.НомерОрдера
    xlSheet.Range("G14").Value = Me.Дата
    xlSheet.Range("C21").Value = Me.ОтКого
    xlSheet.Range("C22").Value = Me.Основание
    xlSheet.Range("G19").Value = Me.Сумма
    xlSheet.Range("B23").Value = Me.Поле19
' --- Закрываем  Excel и уничтожаем объекты, если это необходимо сделать автоматически ---
'    xlBook.Close SaveChanges:=True
'    xlApp.Quit
'    Set xlSheet = Nothing
'    Set xlBook = Nothing
'    Set xlApp = Nothing
    Exit Sub
999:
    MsgBox Err.Description, vbCritical, "http://www.leadersoft.ru"
    Err.Clear
 
End Sub