用SQL汇总或合并工作表、工作簿和跨文件夹和工作表汇总

zhusong1998

感谢帮助，太强大了

godmtv

老师太牛了，谢谢分享

苍蓝之心

太厉害了！

bingoleexuben

opiona 发表于 2016-9-25 21:11

终于找到老师的佳作，下载来学习

bingoleexuben

opiona 发表于 2014-12-3 22:11
汇总方式2：

很多工作簿在文件夹和子文件夹内，汇总全部工作簿内的同名工作表

老师，帮忙弄一下我的，我找您几次了。我实在弄不了SQL，超过50个文件的根据文件名计和汇总

bingoleexuben

老师。我要的是按文件名汇总。能帮忙给修改一下代码不

bingoleexuben

opiona 发表于 2014-12-3 22:11
汇总方式2：

很多工作簿在文件夹和子文件夹内，汇总全部工作簿内的同名工作表

版主，居间人这例 我改成日期，其它例汇总。就报错

bingoleexuben

opiona 发表于 2014-12-3 22:57
提示太复杂，可能是SQL语句超出3000字符，建议加一个中间表。
再有就是SQL连接有点问题
建议改成：

这2行代码不能超过50个，没多大意义

bingoleexuben

opiona 发表于 2016-6-1 14:52

Private Sub CommandButton1_Click()
'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
Application.ScreenUpdating = False '//关闭屏幕刷新
Application.DisplayAlerts = False '//关闭系统提示
t = Timer   '//开始时间
    Set SH0 = Sheets("汇总")
    SH0.Cells.Clear  '//清空保存区域，全部数据第一行是标题行，且只占一行，无合并单元格
    ARR = FileAllArr(ThisWorkbook.Path, "*.xlsx", ThisWorkbook.Name, False)  '//详见函数说明
    SHName = "数据表" '//要求所有工作簿内需要统计的工作表名称相同，
    For I = 0 To UBound(ARR)
        Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ARR(I)   '//Excel2007
    '   Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';data source=" & & ARR(I)     '//OFFICE2003，根据情况选择
        StrSQL = "SELECT 居间人,sum(应发佣金),SUM(营业税),SUM(城建税),sum(教育附加),'" & GetPathFromFileName(ARR(I), False) & "' AS 来自工作簿 FROM [" & SHName & "$]"   '//SQL语句自己发挥吧，这里是精髓。
        IROW = SH0.Range("A1048576").End(3).Row + 1
        If IROW <= 2 Then
            IROW = 1
            Crr = GET_SQLCoon(StrSQL, Str_coon, True)  '//第一次，带上标题
        Else
            Crr = GET_SQLCoon(StrSQL, Str_coon, False)
        End If
        SH0.Range("A" & IROW).Resize(UBound(Crr, 1) + 1, UBound(Crr, 2) + 1) = Crr  '//粘贴查询结果
    Next

Application.ScreenUpdating = True '//恢复屏幕刷新
Application.DisplayAlerts = True '//恢复系统提示
MsgBox "汇总用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
End Sub



加不进居间人。。。。请大家帮我看看

随圆就方

不明觉厉，留个标记，日后学习，谢谢分享！