汇总同文件夹下的表，出现错误！

hrnike

路过的大侠求助，正常情况下附件可以快速合并汇总其他表格，但是由于要汇总的表格有公式，导致出现乱码，求助有没有好的解决办法

shiruiqiang

还密码保护着工作表，自己慢慢搞吧

hrnike

shiruiqiang 发表于 2024-2-1 20:14
还密码保护着工作表，自己慢慢搞吧

原表有密码保护

liulang0808

T1T2T3.zip (218.53 KB, 下载次数: 22)

2024-2-1 21:55 上传

点击文件名下载附件

hrnike

liulang0808 发表于 2024-2-1 21:55

请受小弟一拜

3190496160

Sub 汇总数据()
Application.ScreenUpdating = False
Dim wb As Excel.Workbook
With Sheets("汇总")
    .UsedRange.Offset(3).ClearContents
    .UsedRange.Offset(3).Borders.LineStyle = 0
    f = Dir(ThisWorkbook.Path & "\*.xls*") '生成查找EXCEL的目录
    Do While f <> "" '在目录中循环
        If f <> ThisWorkbook.Name Then '如果不是打开的工作簿
            Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
            x = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            y = wb.Worksheets("人力成本").Cells(Rows.Count, 1).End(xlUp).Row
            ar = wb.Worksheets("人力成本").Range("a4:aa" & y - 1)
            .Range("A" & x).Resize(UBound(ar), UBound(ar, 2)) = ar
            .Range("A" & x).Resize(UBound(ar), UBound(ar, 2)).Borders.LineStyle = 1
            wb.Close False
        End If
    f = Dir
    Loop
    For i = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
        .Cells(i, 1) = i - 3
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

如何快速汇总-1版本2 - 副本.rar (210.58 KB, 下载次数: 15)

2024-2-2 09:52 上传

点击文件名下载附件

hrnike

3190496160 发表于 2024-2-2 09:52

大侠  点击汇总后没有表头，没有表头没法区分是哪家店的，咋设置能每一个表的表头也合并在一起？

hrnike

liulang0808 发表于 2024-2-1 21:55

版主大大，汇总的时候能不能加上每个表的表头呀，我调试来调试去，不行，没有表头无法区分是哪家店，傻瓜式合并（每个店的表的第一行表头也合并在里面就可以了），然后通过其他操作再加工。

3190496160

hrnike 发表于 2024-2-2 10:34
大侠  点击汇总后没有表头，没有表头没法区分是哪家店的，咋设置能每一个表的表头也合并在一起？

那就增加一列写入文件名称不就行了吗？