需要遍历目录下的子文件夹中的所有xls文件，这段代码怎么修改

打开后干嘛呢？
万一该目录下还有其他目录呢？

Sub ccp()
Dim p As String,f As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls")
Do While f <> ""
If f <> ThisWorkbook.Name Then
Workbooks.Open (p & f)
End If
f=dir
loop
Application.DisplayAlerts = True
Application.ScreenUpdating = true
End sub

不难