[求助]数据汇总问题，（已解决，谢谢爱歌！）

在下 · 发表于 2007-1-31 13:34

RAS7OaYH.rar (11.47 KB, 下载次数: 21)

帮助用VBA解决，根据明细表成生汇总表，详细见附件。谢谢！

[此贴子已经被作者于2007-2-3 21:36:11编辑过]

Long_III · 发表于 2007-1-31 16:42

建议采用数据透视表作为过渡表，然后根据透视表的结果来链接到汇总表里（推荐）

或可以加辅助列用公式sumif

代码处理还没有第一种来的快

在下 · 发表于 2007-2-1 07:24

谢谢Long_III版主的回复。

我想用数组或ADO +sql 应该能解决吧。哪位能考虑一下，谢谢！

[此贴子已经被作者于2007-2-3 0:03:31编辑过]

彭希仁 · 发表于 2007-2-1 08:15

爱歌的贴子有现成的东东

爱歌学习 · 发表于 2007-2-1 09:54

一、思路

(SELECT DISTINCT 出票人名称 FROM [明细$]) AS 基准列
从明细表中找出不重复的出票人名称作为基准列

(SELECT 出票人名称,SUM(票面金额) AS 年初金额,COUNT(票面金额) AS 年初笔数 FROM [明细$] WHERE YEAR(出票日)<2007 GROUP BY 出票人名称) AS 年初合计
从明细表中求出07年前按出票人名称分类汇总的票面金额合计及个数合计

将此合计按基准列排列，即可用下面的语句：
"SELECT 基准列.出票人名称,年初金额,年初笔数 FROM (SELECT DISTINCT 出票人名称 FROM [明细$]) AS 基准列 " & _
            "LEFT JOIN " & _
            " (SELECT 出票人名称,SUM(票面金额) AS 年初金额,COUNT(票面金额) AS 年初笔数 FROM [明细$] WHERE YEAR(出票日)<2007 GROUP BY 出票人名称) AS 年初合计 " & _
            "ON 基准列.出票人名称=年初合计.出票人名称"

其它要求的项目按以上形式继续在后面 LEFT JOIN 即可。

二、年初合计完整代码：

Sub total()
    Set Cnn = CreateObject("ADODB.connection")
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName
    Sql = "SELECT 基准列.出票人名称,年初金额,年初笔数 FROM (SELECT DISTINCT 出票人名称 FROM [明细$]) AS 基准列 " & _
            "LEFT JOIN " & _
            " (SELECT 出票人名称,SUM(票面金额) AS 年初金额,COUNT(票面金额) AS 年初笔数 FROM [明细$] WHERE YEAR(出票日)<2007 GROUP BY 出票人名称) AS 年初合计 " & _
            "ON 基准列.出票人名称=年初合计.出票人名称"
    [A7].CopyFromRecordset Cnn.Execute(Sql)
    Cnn.Close: Set Cnn = Nothing
End Sub
YDsoR5oi.rar (14.66 KB, 下载次数: 28)

三、LEFT JOIN 语句使用其它示例：

http://club.excelhome.net/viewthread.php?tid=160847&replyID=492286&skin=1

四、用ADO连接文件自身会出现的问题：

http://club.excelhome.net/viewthread.php?tid=160847&replyID=698943&skin=1

[此贴子已经被作者于2007-2-1 10:00:25编辑过]

在下 · 发表于 2007-2-1 21:29

多谢爱歌学习！

向爱歌学习！

非常感谢！

在下 · 发表于 2007-2-3 21:07

在爱歌学习版主的详细指点和教程的帮助下，我的问题已全部解决了，真是感激不尽！

n7UP5axK.rar (17.11 KB, 下载次数: 25)

再一次表示感谢！

[此贴子已经被作者于2007-2-3 21:16:56编辑过]

		自动登录	找回密码
密码			免费注册