使用 VBA 循环组合框列表并为每个组合框运行 MS Access 宏

Question

目前我有一个 MS Access 2003 表单，其中包含名称组合框列表。使用此工具的方法：从下拉列表中选择一个名称，然后单击 MS Access 宏，该宏根据所选名称运行（3 个不同的查询），然后打开一个主 Excel 模板并运行一个 Excel 宏，该宏将创建 1每个销售人员的个人档案。

我想做的事情：使用 MS Access VBA 代码循环组合框中的姓名列表，然后运行现有的 MS Access 宏来单独运行姓名列表中的每个查询，然后将每个销售人员数据导出到excel 模板已格式化或只是一个 Excel 文件，我将格式化。

我不想手动选择每个名称，从下拉列表中总共有 300 多个名称，运行所有这些查询需要很长时间。我想使用 VBA 代码循环遍历表单上组合框中的每个名称，并使用每个名称运行现有的 ms access 宏（一起运行 3 个查询），然后我想让该函数将每个单独的文件导出到 Excel 。最终结果是每个销售人员都会有自己的 Excel 文件。

Answer 1

Dim i As Long
  with myCombo
    For i = 0 To .ListCount
        Debug.Print .ItemData(i)
    Next i
end with

Answer 2

虽然 iDevlop 的答案在技术上是正确的，但它也会在最后给出组合框的 Null 值。因此，如果您只想列出不为空的项目，请使用

Dim i As Long
With combobox
   For i = 0 To .ListCount - 1
       Debug.print .ItemData(i)
   Next i
End With