VBA中构建SQL查询报错：如何获取GROUP BY后的TOP 5结果？

你的错误SQL存在三个关键问题：

• 外层SELECT TOP 5后未指定要查询的列（必须写*或具体列名）
• Access SQL要求子查询必须设置别名（否则无法识别）
• DISTINCTROW和GROUP BY同时使用冗余，GROUP BY已经会返回唯一分组结果，可直接移除

修正后的SQL写法 #

SQL = " SELECT TOP 5 * FROM (" & _
      " SELECT [A], [B], [C], [D], Sum([E]) AS [Sum E]" & _
      " FROM [SheetName$RangeAddress]" & _
      " GROUP BY [A], [B], [C], [D]" & _
      ") AS SubQuery " & _
      " ORDER BY [Sum E] DESC;"

关键修改说明 #

1. 外层查询添加*表示选择子查询的所有列，也可以明确写[A], [B], [C], [D], [Sum E]
2. 子查询末尾添加AS SubQuery（别名可自定义，比如AS GroupedData）
3. 移除DISTINCTROW，避免语法冗余

如果需要按Sum E降序取前5，这个写法就能正常执行，同时解决数据量过大的问题。

内容的提问来源于stack exchange，提问作者TourEiffel