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

Question

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

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

要打开该应用程序，我需要：

Application.ActivateMicrosoftApp xlMicrosoftAccess

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

Answer 1

Dim a As Access.Application   ' Add Access reference

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

此代码完成了您必须要做的事情，但是如果将getObject用于a类型的access.application，则使用int weightColumnIndex = cursor.getColumnIndex(PetEntry.COLUMN_PET_WEIGHT); Log.v("the weight index","-->"+weightColumnIndex); int weight = cursor.getInt(weightColumnIndex); 会得到一个类名的对象

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