汇总多个工作簿中数据的问题

weide_yang

同1文件夹内有汇总工作簿和或盈或亏的N格工作簿，想要用代码实现：将每个盈工作簿的最后一行的数据集中到汇总工作簿的“盈”工作表，同时将亏工作簿的最后一行的数据集中到汇总工作簿的“亏”工作表。
恳请老师赐教，谢谢！
新建文件夹.zip (61.56 KB, 下载次数: 5)

2024-11-20 16:12 上传

点击文件名下载附件

limonet

Sub limonet()
    Dim Cn As Object, Yin$, Kui$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    Path$ = ThisWorkbook.Path & "\"
    Filename$ = Dir(Path & "*.xls?")
    Do While Filename <> ""
        If Filename <> "汇总工作簿.xlsm" Then
            If Filename Like "*盈*" Then
                Yin = Yin & " Union All Select * From [Excel 12.0;DataBase=" & Path & Filename & "].[" & Split(Filename, ".xls")(0) & "$A3:R] Where 出库_入库='金额列的合计数'"
            Else
                Kui = Kui & " Union All Select * From [Excel 12.0;DataBase=" & Path & Filename & "].[" & Split(Filename, ".xls")(0) & "$A3:R] Where 出库_入库='金额列的合计数'"
            End If
        End If
        Filename = Dir
    Loop
    Worksheets("盈").Range("A4").CopyFromRecordset Cn.Execute(Mid(Yin, 12))
    Worksheets("亏").Range("A4").CopyFromRecordset Cn.Execute(Mid(Kui, 12))
End Sub

limonet

关键字：dir+do while loop+if then+union all

weide_yang

效果很好！非常感谢limonet老师的赐教，衷心感谢！