使用VBA激活打开MS Access文件以SendKeys

Question

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

Answer 1

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

然而，窗口的标题取决于当前打开的内容：

如果没有打开数据库：

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是错误的。 Access具有与Excel类似的对象模型，您可以使用COM轻松链接这两者。它通常比使用SendKeys更可靠，