求助：如何利用VBA+SQL处理几万行的同路径下工作簿数据汇总

zjl19860613

VBA求解同路径汇总数据.rar (37.92 KB, 下载次数: 50)

2014-10-29 19:08 上传

点击文件名下载附件
VBA+SQL求解大量数据汇总

各位大师：
        本人是一名HR，公司人数达到4000人以上，年底统计工资等数据经常达到几万行，到了年底做年终奖需要统计前12月的工资汇总（尚没有专门的软件系统），从而根据第12月的工资表在职人员，制作全年收入情况，进而核定奖金。
       现在碰到的问题是，几万行额原始数据存放在2010版本EXCEL内尚可，但是需要做加工，使用SUMIFS等公式，则速度很慢，表格庞大。考虑下来希望通过单独的另外一个工作簿，去统计数据，如果需要加工，直接在单独的EXCEL内做加工，极大的提高效率。
       数据已经在附件里面，使用了论坛内一位高手的VBA公式，在此表示感谢！但是只能解决一个字段的统计，如果需要统计多个，则会出现报错。
       问题困扰多时，咨询了多人未得到解决，请大师们指导下，谢谢！

yczzwy

Sub ADO汇总()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\工作簿2.xlsx"
    SQL = "select 工号,sum(应发合计)as 应发工资1,sum(出勤天数)as 出勤天数1 from [Sheet1$]  group by 工号"
    [a1].CurrentRegion.Offset(1).ClearContents
    [a2].CopyFromRecordset cnn.Execute(SQL)
   
    cnn.Close
    Set cnn = Nothing
End Sub

yczzwy

你完全可以使用数据透视表，解决你的问题。

zjl19860613

yczzwy 发表于 2014-10-29 20:28
Sub ADO汇总()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")

谢谢，原来是我输错了一个字段，还是不够熟练！感谢你解决了我的问题！

zjl19860613

yczzwy 发表于 2014-10-29 20:31
你完全可以使用数据透视表，解决你的问题。

恩，谢谢你的建议，我也试过的，主要是数据透视表表头项目不大好更改，一定程度上影响我的其他加工，因为我还要根据计算出来的汇总，对于出勤月数、全年请假是否满足15天等等字段进行统计，因此，从灵活性上考虑，希望建立的表格是独立出来的，同时美观、可以按部门等用宏拆解等（公司里面有22个部门）

zjl19860613

@526753064 发表于 2014-10-29 20:17
用数组+字典一个个查找行吗

数值+字典没有试过，个人不够精通，SQL也是第一次使用，平时用的多的主要是宏，所以我的附件里面也有个查询的宏，您有好的建议么，是否可以上传指导下呢？

blanksoul12

留個位置............

zjl19860613

blanksoul12 发表于 2014-10-29 22:38
留個位置............

额 发现上论坛的，晚上人超多

wangqh8203

兄弟，有没有从excel表导入sql的语句，最近也在用ADO导入导出，头都整大了

sdong7

这不是典型的字典多列汇总问题吗！！