如何让Excel VBA中的SQL SELECT COUNT语句按预期工作？

需求说明 #

需要统计Excel数据表中不同Packets对应的Diagrams数量，按Packets分组返回计数结果。

原始数据表 #

期望输出 #

问题排查 #

当前代码执行时报错“语法错误，缺少运算符”，问题集中在SQL语句的COUNT部分：

1. SELECT语句多余包含了[Diagrams]字段，分组查询中非聚合字段必须出现在GROUP BY中，此处不需要返回该字段的具体值
2. COUNT函数语法错误，正确写法需用括号包裹统计字段，且字段之间缺少逗号分隔
3. 未给计数结果设置别名，无法匹配期望的输出列名

修正后的完整代码 #

Sub CountOfDiagrams()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

strFile = ThisWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

' 修正后的SQL语句，完成分组计数
strSQL = "SELECT [Packets], COUNT([Diagrams]) AS [Diagrams]" & _
         "FROM [MECHANICAL$]" & _
         "GROUP BY [Packets]"

rs.Open strSQL, cn

Sheets("Sheet1").Select

Dim r As Integer
r = 2
Dim c As Integer
c = 1

Cells(r, c).CopyFromRecordset rs

rs.Close
cn.Close

End Sub

关键修改点 #

• 移除SELECT中多余的[Diagrams]字段，仅保留分组字段和聚合计数
• 修正COUNT函数语法为COUNT([Diagrams])，并通过AS [Diagrams]给计数结果设置别名，匹配期望的列名
• 确保SELECT的多个字段之间用逗号分隔，符合SQL语法规范

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