仅供参考：
Sub 循环当前文件夹中所有工作簿的所有工作表()
f = Dir(ThisWorkbook.Path & "\*.xls") '搜索当前文件夹
Do While f > " " '只要指定的条件为 True，则会重复执行
If f <> ThisWorkbook.Name Then '如果不是当前工作簿
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f) '打开工作簿
For i = 1 To wb.Sheets.Count '循环工作表
With wb.Sheets(i)
.Range("a1") = 1 '具体任务
End With
Next
wb.Close 1 '关闭 Open 语句所打开的输入/输出 (I/O) 文件。
End If
f = Dir
Loop
End Sub
