从Access问题打开Excel文档

Question

在我的数据库中，我管理不同的Excel文件。报告中有一个按钮可以打开这些文件，为了做到这一点，我使用了这个代码（在点击按钮时运行代码）：

    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数据库上的一些字段。所以我需要从excel调用Access，这个代码在文件打开时运行。所以我从Access运行Excel，然后从Excel运行Access。我希望这有助于解决这个问题的人。请记住：如果您在从Access打开文件时遇到问题，并且您的Excel文件可以运行代码，请在您确实需要时检查所有运行。