如何使用 Application.ActivateMicrosoftApp xlMicrosoftAccess 打开特定的访问数据库答案

【问题标题】：How to open a specific access database with Application.ActivateMicrosoftApp xlMicrosoftAccess如何使用 Application.ActivateMicrosoftApp xlMicrosoftAccess 打开特定的访问数据库
【发布时间】：2019-08-20 07:00:42
【问题描述】：

我正在尝试使用 TransferSpreadsheet 代码在 Access 中导入 Excel 工作表。

如果 Access（和表）打开，则代码有效。我想直接从 excel 中激活应用程序，然后再导入。

打开我拥有的应用程序：

Application.ActivateMicrosoftApp xlMicrosoftAccess

此命令会打开应用程序，但我需要直接打开特定的 Access 数据库以及我要导入的表。

【问题讨论】：

考虑将 Access 用作数据库而不是应用程序，并让 Excel 连接到它并附加其数据。如果插入 Oracle、Postgres、SQLite 和其他数据库，则过程相同。
谢谢 Parfait，我同意你的观点，但我想我可以在访问中使用“importExportSpreadsheet”宏并通过 excel 调用它。问题是在 ImportExportSpreadsheet 宏中我只能选择单元格范围，而我想在 excel 文件的特定选项卡中选择范围。所以我有一个包含更多工作表的电子表格，并选择一个包含要导入的数据的电子表格。您是否认为可以选择它，也许可以从访问中修改 VBA 转换的代码？谢谢

标签： vba ms-access

【解决方案1】：

Dim a As Access.Application   ' Add Access reference

Application.ActivateMicrosoftApp (xlMicrosoftAccess)
Set a = GetObject(, "Access.Application")

这段代码做了你必须做的事情，但是如果提供给一个对象，使用getObject 会得到一个类名的对象，这种情况下a 类型为access.application

请记住，这只是打开应用程序，您还需要将相关数据库打开到 Access 应用程序中，然后再继续。

【讨论】：