多工作簿汇总

xyd617

lsc900707 发表于 2018-7-30 21:53
附件供测试：

如图所示：显示的这个是汇总工作簿，显示找不到。不知哪里问题？

jjmysjg

资产负债表，你把资产和负债拆开，是为了汇总吗

lsc900707

xyd617 发表于 2018-7-31 10:18
如图所示：显示的这个是汇总工作簿，显示找不到。不知哪里问题？

你的office是哪个版本？

xyd617

lsc900707 发表于 2018-7-31 10:23
你的office是哪个版本？

我的OFFICE 是2016版本

lsc900707

xyd617 发表于 2018-7-31 10:25
我的OFFICE 是2016版本

那就不会有问题呀，我测试附件🆗，你把出错的文件上传看看。

xiangbaoan

xyd617 发表于 2018-7-31 10:18
如图所示：显示的这个是汇总工作簿，显示找不到。不知哪里问题？

文件夹中有隐藏的文件，把它干掉，方法：
我的电脑  工具   文件夹选项，如图操作（win7中）

LMY123

横向合并多薄指定表

lsc900707

xyd617 发表于 2018-7-31 10:18
如图所示：显示的这个是汇总工作簿，显示找不到。不知哪里问题？

Sub test()
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls")
    Application.ScreenUpdating = False
    n = 1
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set sh = GetObject(p & f).Sheets("data")
            n = n + 1
            sh.[b7:b170].Copy Cells(3, n)
            Cells(2, n) = Split(f, ".")(0)
            Workbooks(f).Close False
        End If
        f = Dir
    Loop
    Set sh = Nothing
    Application.ScreenUpdating = True
End Sub