|
本帖最后由 lsc900707 于 2018-4-17 15:46 编辑
Sub gj23w98()
tms = Timer
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xlsx")
Application.ScreenUpdating = False
ReDim brr(1 To 30000, 1 To 16)
Do While f <> ""
If f <> ThisWorkbook.Name Then
n = n + 1
Set sht = GetObject(p & f).Sheets(1)
arr = sht.[a1].CurrentRegion
Workbooks(f).Close False
For i = 2 To UBound(arr)
m = m + 1
For j = 1 To 16
brr(m, j) = arr(i, j)
Next
Next
End If
f = Dir
Loop
Set sht = Nothing
With Sheet1
.[a1].CurrentRegion.Offset(1).ClearContents
.[a2].Resize(m, 16) = brr
End With
Application.ScreenUpdating = True
MsgBox "OK!汇总了:" & n & "个工作簿的" & m & "行数据。" & "用时:" & Format(Timer - tms, "0.00") & "秒"
End Sub |
评分
-
1
查看全部评分
-
|