7.2 Экспорт из Access в Excel с форматированием без сохранения связи с источником данных

Как из Access в один клик создать файл Excel, содержащий данные таблицы или запроса. Таблица Excel должна иметь наглядный формат и не иметь связи с источником данных.
Этот код вставляем на событие нажатия кнопки
Private Sub Кнопка85_Click()
Dim dbTable As String
Dim fcSource As String
Dim fcDestin As String
fcSource = "E:\Сервер\БД КБ\01_Основная\ДеталиБезСвязи.xlsx"
fcDestin = "E:\Сервер\БД КБ\04_Отчёты\Отчёт ДеталиБезСвязи.xlsx"
dbTable = "Детали в Excel без связи"
DoCmd.TransferSpreadsheet transfertype:=acExport, SpreadsheetType:=acSpreadsheetTypeExcel12, TableName:=dbTable, FileName:=fcSource
FileCopy fcSource, fcDestin
Application.FollowHyperlink "E:\Сервер\БД КБ\04_Отчёты\Отчёт ДеталиБезСвязи.xlsx"
End Sub

Видео 7.2 Экспорт из Access в Excel с форматированием без сохранения связи с источником данных канала [msAccess]![ГлавныйКонструктор]