使用 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