求助多文件中指定工作表数据汇总到汇总文件中

dagal

需要一个汇总数据，从多个文件中指定的客房收入、餐饮这个表的数据汇总到汇总表里，之前是一张张粘，每天花费大量时间，请教有何办法可以每天收到各门店数据后自动更新汇总表中的数据，上传的文件只是部分表，实际工作中有20多个门店的每天数据的粘贴，汇总。谢谢。

dagal

6月.rar (295.03 KB, 下载次数: 11)

2018-6-1 12:45 上传

点击文件名下载附件

opiona

http://club.excelhome.net/thread-1409141-1-1.html

lsc900707

dagal 发表于 2018-6-1 12:46

Sub gj23w98()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sht In Sheets
        If sht.Name <> ActiveSheet.Name Then sht.Delete
    Next
    Set wk = ThisWorkbook
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls")
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set ws = Workbooks.Open(p & f)
            ws.Sheets("客房收入").Copy after:=wk.Sheets(wk.Sheets.Count)
            wk.Sheets(wk.Sheets.Count).Name = Mid(Split(f, ".")(0), 6, 4) & "A"
            ws.Sheets("餐饮").Copy after:=wk.Sheets(wk.Sheets.Count)
            wk.Sheets(wk.Sheets.Count).Name = Mid(Split(f, ".")(0), 6, 4) & "B"
            ws.Close False
        End If
        f = Dir
    Loop
    Sheets(1).Activate
    MsgBox "ok"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

lsc900707

dagal 发表于 2018-6-1 12:46

附件供测试：

dagal

lsc900707 发表于 2018-6-2 11:29
附件供测试：

谢谢，只不过我其实还是更多的文件要合并，我试着把其他文件并入这个文件夹后就出错了。而且在汇总这张也相应的把表给建了，但是copy不了，不知有何办法可以自动按我加多少文件就提能所有都copy进来呢

dagal

6月.rar (314.21 KB, 下载次数: 7)

2018-6-4 11:53 上传

点击文件名下载附件

附件已上传

lsc900707

dagal 发表于 2018-6-4 11:50
谢谢，只不过我其实还是更多的文件要合并，我试着把其他文件并入这个文件夹后就出错了。而且在汇总这张也 ...

不用建表的呀，代码自动的。
把出错的文件上传，或者把提示出错的地方告诉我呀！

lsc900707

dagal 发表于 2018-6-4 11:53
附件已上传

这不是我上传的附件吗？重传上来什么意思呀？