在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表。

以下是截图：在导航窗格中，尝试使用棕色bg颜色标记所选对象。

我的问题是，在Visual Basic for Application中，如何通过Shift-Click获取在导航窗格中选择的对象列表，因此同时选择了几个对象，如图所示，Access 2007标记为棕色背景颜色，如：

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

Answer 1

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

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