Открыть документ Excel из проблем доступа

Question

В моей базе данных я управляю различными файлами Excel. Там есть кнопка в отчете, который позволяет открыть эти файлы, и сделать это я использую этот Linse коды (запускает код при щелчке на кнопке):

Dim str_file As String 
    str_file = "C:\[directory of the file]" 
    Application.FollowHyperlink str_file 

Он работает, и открывает файл, который я хочу , Проблема в том, что он не устанавливает программу excel как активную, когда она открывает файл, который показывает очень быстро файл, но для чего-то, чего я не знаю, приложение Excel скрыто и приложение Access активно. Я столкнулся с некоторыми проблемами со всплывающими формами, потому что это всплывающее окно, вы не можете установить активное окно, отличное от всплывающего окна, но эта проблема решается, если вы закрываете всплывающее окно перед установкой активной формы. Я пробовал также такие строки, как эти, но они также не работают:

Dim xlApp As Excel.Application 
    Set xlApp = CreateObject("Excel.Application") 
    xlApp.Visible = True 

Answer 1

Я нашел проблему. Код в Access работает хорошо, он делает то, что он должен делать. Файлы excel, которые у меня есть, являются «.xlsm», потому что мне нужно запустить некоторый код при сохранении файла, мне нужно обновить некоторые поля в базе данных Access. Поэтому мне нужно было вызвать Access from excel, и этот код запускается при открытии файла. Поэтому я запускаю Excel из Access, а затем Access из Excel. Надеюсь, что это поможет кому-то с этой проблемой. Помните: если у вас есть проблемы с открытием файлов из Access и ваши файлы excel могут запускать код, убедитесь, что все выполняется, когда вам действительно нужно.