Excel VBA聚合函数错误

Question

我是Excel VBA的新手。 当我运行以下代码时，出现错误“查询表达式sum [Project Hrs]中缺少运算符”。 我究竟做错了什么？

Sub TaskHrs()

   strSQL = "Select [User Name], [Task Name], sum[Project Hrs] from [idata$]      group by [User Name], [Task Name]"

   closeRS
   OpenDB

   rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

  If rs.RecordCount > 0 Then
   Do While Not rs.EOF
     Range("A1").CopyFromRecordset rs
   Loop
  End If


End Sub

Answer 1

这不是VBA问题，而是SQL问题。 在语句的SUM部分中，您没有放置方括号。

strSQL = "Select [User Name], 
                 [Task Name], 
                 SUM([Project Hrs]) 
from             [idata$]      
group by         [User Name], 
                 [Task Name]"