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

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更可靠，