使用 VBA 激活一个打开的 MS Access 文件以发送密钥

Question

我正在尝试将击键发送到打开的 Microsoft Access 文件，以便我可以通过工具栏将数据导出到 excel 文件。如何激活 VBA 代码中打开的 Access 文件，使其成为焦点 window？

Answer 1

您可以使用 AppActivate 和 window 的标题激活打开的 Access 应用程序。

window 的标题取决于当前打开的内容：

如果没有打开数据库：

AppActivate GetObject(, "Access.Application").Name 'Or AppActivate "Microsoft Access"

如果打开的数据库没有自定义标题：

AppActivate GetObject(, "Access.Application").CurrentDb.Name 'Or AppActivate "FileName.accdb"

如果打开了具有自定义标题的数据库：

AppActivate GetObject(, "Access.Application").CurrentDb.Properties!AppTitle 'Or AppActivate "The title"

请注意，在我看来，使用 SendKeys 自动访问是做错了。 Access 有一个 object 模型，就像 Excel 一样，您可以 link 使用 COM 非常轻松地实现这两者。它通常比使用 SendKeys 更可靠，

Activate an Open MS Access File to SendKeys With VBA