ник: Гоблин
Не совсем допонимаю к чему все это?
Вот код. Работает на кнопку в форме. В ней подчиненными формами в данном случае сводные таблицы.
If Me.НаборВкладок249.Value = 1 Then
Forms!Обследования![Сводная таблица статистики1].SetFocus
Else
If Me.НаборВкладок249.Value = 2 Then
Forms!Обследования![Сводная таблица2].SetFocus
Else
End If
End If
DoCmd.RunCommand (acCmdPivotTableExportToExcel)
Тут 2 вкладки с разными сводными таблицами. Не суть. Последняя строка переводит то, что на экране в экслель без замечаний. Или у вас шаблон в экселе, а в необходимые места вставляются данные? Если так, то хотелось бы глубже в тему вникнуть.