汇总所有工作簿的工作表中B列最后5行数据，执行到一半就中断了

wjh9239

fzxba 发表于 2023-2-19 22:07
小问题了，可以变通的。

好的，谢谢您，能上传个带注释的代码吗？

wjh9239

山菊花 发表于 2023-2-19 17:55

谢谢您，代码粘贴进去，运行不了啊

短腿小居居。

虽然问题已经解决，但是练练手，来个GetOpenFilename的多选EXCEL写法，速度慢一些。
Sub TEST()
    Application.ScreenUpdating = False
    COST = Timer
    Dim ARR, BRR
    PATH1 = ThisWorkbook.Path
    A = Application.GetOpenFilename("EXCEL文件,*.XLS*", MultiSelect:=True) '允许多选
    If IsArray(A) Then
        ReDim BRR(1 To 65500, 1 To 5)
        J = 1
        For I = LBound(A) To UBound(A)
            Workbooks.Open (A(I))
            r = ActiveWorkbook.Sheets("SHEET1").Range("A65500").End(3).Row
            ARR = Range("B" & r - 4 & ":B" & r)
            ActiveWorkbook.Close False '关闭日期表后会转回原表
            For II = 1 To 5
                BRR(J, II) = ARR(II, 1)
            Next
            J = J + 1
        Next
    Else
        MsgBox "END"
    End If
    Range("C2").Resize(J, 5) = BRR
    Application.ScreenUpdating = True
    MsgBox Format(Timer - COST, "0.0000秒"), , "用时："
End Sub

APPLE123

zxsea_7426 发表于 2023-2-19 18:54
好花时间啊。

麻烦老师，运行提示：1004错误，点击调试，倒数第4行标黄
请教老师.sort keyl:=ActiveSheet是否完整？
谢谢！

zxsea_7426

APPLE123 发表于 2023-2-21 20:17
麻烦老师，运行提示：1004错误，点击调试，倒数第4行标黄
请教老师.sort keyl:=ActiveSheet是否完整？
...

尾巴没有截图进去，分行截图如下：