vba - 在 VBA 中，如何获取在 Microsoft Access 2007 的导航窗格中选择的对象列表？

Question

在 Microsoft Access 2007 中，在 VBA 代码中，可以通过以下方式在导航窗格中通过单击来了解选择的对象：

dim strObjName as String, lObjType as Long
strObjName = Application.CurrentObjectName
lObjType = Application.CurrentObjectType

以这种方式只能选择一个对象。

现在我想选择多个对象，例如，从后端 SQL Server 中导出几个选定的表，这些表用于我们的实体店管理，作为 .sql 文本文件来创建 MySQL 表以供网站使用。

我的问题是，在 Visual Basic for Application 中，如何通过 Shift-Click 获取导航窗格中选择的对象列表，从而同时选择多个对象，如图所示，Access 2007 以棕色背景色标记，在像这样的方式：

dim xObjs
Set xObjs = Application.SelectedObjects ' this property does not exist.

?

score 4 · Accepted Answer

我不相信导航栏有一个集合对象，在这种情况下，这可能是你唯一的希望。

我建议您使用多选列表框创建自己的表单，在表单加载时使用 Query 对象填写它，然后编写代码循环遍历列表框并导出所选项目。

1 回答 1