[已解决]SQL表达

张雄友

SQL语句求助，请看附件。

    '问题一,SQL语句怎么修改才能达到右边的效果？？？
    '问题二，对于数据源怎么修改成动态？如：[明细$A21:F]，怎么修改成VBA语句：A21.CurrentRegion 的这样的表达？？？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-27 21:21

1.    strSQL = "SELECT 车间,COUNT(车间) AS 工号,SUM(收入) AS 收入 FROM[明细$" & Worksheets("明细").Range("a21").CurrentRegion.Address(False, False) & "] GROUP BY 车间"
   
2.     strSQL = strSQL & " union all select ""总计"",count(车间),sum(收入) from [明细$" & Worksheets("明细").Range("a21").CurrentRegion.Address(False, False) & "]"

复制代码

跳转到最佳答案楼层

hwc2ycy

为啥要把数据做成2个，直接做成一块不更省事。

hwc2ycy

1. strSQL = "SELECT 车间,COUNT(车间) AS 工号,SUM(收入) AS 收入 FROM[明细$A21:F] GROUP BY 车间"

复制代码

hwc2ycy

第二个问题，因为你的SQL语句所查询的是在代码所在的工作簿，所以可以直接用获取地址的，如果获取的是一个未打开的，那这样就无效了。

张雄友

hwc2ycy 发表于 2014-2-27 21:14

最后的总数没有的？

hwc2ycy

1. strSQL = "SELECT 车间,COUNT(车间) AS 工号,SUM(收入) AS 收入 FROM[明细$" & Worksheets("明细").Range("a21").CurrentRegion.Address(False, False) & "] GROUP BY 车间"

复制代码

张雄友

hwc2ycy 发表于 2014-2-27 21:15
第二个问题，因为你的SQL语句所查询的是在代码所在的工作簿，所以可以直接用获取地址的，如果获取的是一个未 ...

版主的意思是无法用currentregion 式的表达？

hwc2ycy

1.    strSQL = "SELECT 车间,COUNT(车间) AS 工号,SUM(收入) AS 收入 FROM[明细$" & Worksheets("明细").Range("a21").CurrentRegion.Address(False, False) & "] GROUP BY 车间"
   
2.     strSQL = strSQL & " union all select ""总计"",count(车间),sum(收入) from [明细$" & Worksheets("明细").Range("a21").CurrentRegion.Address(False, False) & "]"

复制代码

hwc2ycy

张雄友 发表于 2014-2-27 21:17
版主的意思是无法用currentregion 式的表达？

1.     Dim strAdr$
   
2.     strAdr = Worksheets("明细").Range("a21").CurrentRegion.Address(False, False)
   
3.     strSQL = "SELECT 车间,COUNT(车间) AS 工号,SUM(收入) AS 收入 FROM[明细$" & strAdr & "] GROUP BY 车间"
   
4.     strSQL = strSQL & " union all select ""总计"",count(车间),sum(收入) from [明细$" & strAdr & "]"

复制代码

hwc2ycy

试问，你如何对一个未打开的工作簿用这个对象属性，如果你非要这样用，那就用代码打开。