Sub HuiZong()
Dim myfile, mypath, wb
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path
myfile = Dir(mypath & "\*.xls*")
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = GetObject(mypath & "\" & myfile)
With wb.Sheets(1)
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
End With
wb.Close False
End If
myfile = Dir
Loop
Application.ScreenUpdating = True
End Sub
竖排汇总工作表
最新推荐文章于 2020-08-07 18:16:02 发布