VBA - Открытое приложение XLS поверх MSAccess
Я создаю и форматирую книгу XLS из базы данных Access, используя VBA, инициированную нажатием кнопки пользователя на форме.
Я бы хотел, чтобы приложение XLS ВСЕГДА было открыто поверх AccessDB, чтобы позволить пользователю видеть рабочий лист напрямую. В настоящее время это прерывисто, XLS обычно открывает UNDER Access на первой итерации, а затем сверху на последующих итерациях в том же сеансе. Проверка пользователем файла необходима до окончательного сохранения и экспорта на наш клиентский портал. Обычно для каждой пользовательской сессии используется только одна итерация.
Я использую следующий подход (псевдо):
Dim appXLS As Object
Dim wbkNew As Object
Dim wks1, wks2, wks3 As Object
Set appXLS = CreateObject("Excel.Application")
Set wbkNew = appXLS.Workbooks.Add
appXLS.Visible = True
wbkNew.Activate
...populate & format 3 worksheets from Access
wks1.Activate ' go back to sheet 1
wbkNew.SaveAs AccessMode:=xlExclusive, FileName:=myFile
Я сохраняю файл в этой процедуре, поэтому любые предупреждения о "перезаписи файла" также открываются в MSAccess.
Я думал, что линии.Activate обеспечат желаемую функцию. Есть мысли или идеи по этому поводу?
Спасибо!