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

【问题标题】：Use VBA to loop through combo box list and run MS Access macro for each使用 VBA 循环组合框列表并为每个组合框运行 MS Access 宏
【发布时间】：2011-07-25 12:43:57
【问题描述】：

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

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

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

【问题讨论】：

组合框中的名字从何而来？如果从查询中，您不能只运行该查询并遍历记录，为每个记录运行报告宏吗？您可以显示任何代码（并且您可以修改表单中的代码）吗？最简单的方法是遍历组合框中的条目，将列表选择设置为每个项目，然后运行报告宏。如果没有更多细节，就很难提供更多。

标签： ms-access vba ms-access-2003

【解决方案1】：

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

【讨论】：