Sub 汇总数据()

Application.ScreenUpdating = False

p = "d:\\提取\\"

f = Dir(p & "*.xlsx")

Do While f <> "" （提示这里是错误的：没有结束语）

Workbooks.Open p & f

r = r + 1

ActiveSheet.Rows(3).Copy

Workbooks("汇总.xlsx").Sheets("sheet1").Activate
ActiveSheet.Range("A" & r).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCut
Workbooks(f).Activate
ActiveWorkbook.Saved = True

ActiveWindow.Close

f = Dir

Loop

Application.ScreenUpdating = True
End Sub