执行合并同一个文件夹的EXCEL宏出现错误提示！

gy12222

运行合并宏出现错误提示：
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, ShCol + 1).Resize(ShRcou - 1) = WbSht
求各位大侠帮忙看看！

gy12222

Sub 汇总()
Application.ScreenUpdating = False
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Set sh = ThisWorkbook.Worksheets(1)
f = Dir(ThisWorkbook.Path & "\*.xls*") '生成查找EXCEL的目录,可以适应不同版本
Do While f <> "" '在目录中循环
If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f) '依次打开目录工作薄
   n = n + 1
    If n = 1 Then
    arr = wb.Worksheets(1).[a1].CurrentRegion
    Else
       arr = wb.Worksheets(1).[a1].CurrentRegion.Offset(1)
End If
sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
     wb.Close False '关闭打开的工作薄
    End If
     f = Dir
     Loop '结束循环
    MsgBox "共汇总了" & n & "个文件"
     Application.ScreenUpdating = True
End Sub

在本论坛找到这个比较好用！

lsc900707

gy12222 发表于 2018-10-13 08:39
Sub 汇总()
Application.ScreenUpdating = False
Dim wb As Excel.Workbook

你的附件本来是多簿单表的汇总却偏偏找个多簿多表汇总的代码，当然报错了。

gy12222

lsc900707 发表于 2018-10-13 08:48
你的附件本来是多簿单表的汇总却偏偏找个多簿多表汇总的代码，当然报错了。

好的，受教了谢谢！

gy12222

朱荣兴 发表于 2018-10-13 17:50
这段代码是我写的，代码本身没问题，也是多薄单表汇总的代码，关键是要看你的文件的具体情况。

是了，开始没注意这个问题，附件的宏是应用于一个工作表多个工作薄，而从论坛找到的代码是适用于一个工作簿一个工作表。（真心感谢你的代码了）