Экспорт отчетов из аксесс

[sergo44441]

Просьба помочь по программированию в аксесс
Сделал запрос «Синхронизация данных», вывожу его в эксель в формате сводной таблицы (представление запроса в формате сводной).
Код следующий:
DoCmd.OpenQuery "Синхронизация свод", acViewPivotTable
DoCmd.RunCommand acCmdPivotTableExportToExcel
DoCmd.Close acQuery, "Синхронизация свод"
Выводится файл «Сводная таблица...» с результатами запроса (на листе2) и сводной (на листе1), но значения в сводной отсутствуют (в полях есть, автоматически не выводятся).
Возможно ли настроить экспорт запроса таким образом в определенную папку?
Хочу скорректировать этот момент обращением к данной книге:
Dim oxcel As Object
Dim obook As Object
Dim osheet As Object
Set oxcel = CreateObject("Excel.Application")
Set osheet = oxcel.ActiveWorkbook.Worksheets("Лист1") – на этой строке ошибка
Как правильно обратиться к данной книге для последующих команд вба (она в данный момент активна)?
В готовом отчете необходимо осуществить форматирование, назначить область печати, установить необходимую ширину столбцов.
За грамотный ответ готов объявить вознаграждение.

[sergo44441]

Решил не мучиться с этой сводной таблицей, сделал просто экспорт в эксель и там сделаю такую же сводную