Expr1000在Excel中对SQL查询执行求和时出错

Expr1000在Excel中对SQL查询执行求和时出错,sql,vba,excel,Sql,Vba,Excel,下面的查询在excel中提供了结果:“Expr1000 result”我需要得到没有标题的结果,但我找不到任何结果。我在查询中找不到任何冗余,但当我删除SUM函数时,标题将恢复为列的正确标题。我非常感谢你的建议 子计算完成() Sheet2.Cells.ClearContents 作为ADODB.连接的Dim oCn 将oRS设置为ADODB.Recordset 将字符串变为字符串 将SQL设置为字符串 调暗QueryDPiN为字符串 QueryDPiN=“选择[OP$]中的IIF(金额([到期

下面的查询在excel中提供了结果:“Expr1000 result”我需要得到没有标题的结果,但我找不到任何结果。我在查询中找不到任何冗余,但当我删除SUM函数时,标题将恢复为列的正确标题。我非常感谢你的建议

子计算完成()
Sheet2.Cells.ClearContents
作为ADODB.连接的Dim oCn
将oRS设置为ADODB.Recordset
将字符串变为字符串
将SQL设置为字符串
调暗QueryDPiN为字符串
QueryDPiN=“选择[OP$]中的IIF(金额([到期金额])为空,0,金额([到期金额]),其中[Originator Dept]=“BLC新业务”和[Overpayment Category]=“错误支付的美元”
调用SQLQueries(queryPIN,“C2”)
端接头
子SQLQueries(QueryVariable作为字符串,TableLocation作为字符串)
作为ADODB.连接的Dim oCn
将oRS设置为ADODB.Recordset
将字符串变为字符串
将SQL设置为字符串
将qt设置为查询表
ConnString=“Provider=Microsoft.Jet.OLEDB.4.0;数据源=C:\Users\cnop0g\Desktop\OP.xlsx;扩展属性=excel8.0;持久安全信息=False”
设置oCn=New ADODB.Connection
oCn.ConnectionString=ConnString
oCn.ConnectionTimeout=30
开放式
SQL=QueryVariable
Set oRS=新的ADODB.Recordset
oRS.Source=SQL
oRS.ActiveConnection=oCn
开放的
Set qt=工作表(6).查询表.添加(连接:=oRS_
目的地:=工作表(6).范围(表位置))
qt.刷新
如果oRS.State已关闭,则
好的,结束
如果结束
如果不是oRS,则设置oRS=Nothing
如果不是oCn为Nothing,则设置oCn=Nothing
端接头
谢谢你的帮助!
-Zokah

您需要在查询中将列名
指定为[到期金额]
,以便SQL引擎不会自动生成一个:

QueryDPiN = "SELECT IIF(SUM([Amount Due]) IS NULL, 0, SUM([Amount Due])) AS [Amount Due] FROM [OP$] WHERE [Originator Dept]='BLC New Business' AND [Overpayment Category]='Dollars Paid in Error';"

这很有效。谢谢你的快速回复!现在你有没有关于删除整个标题的建议?