Перебор файлов в каталоге - групповое редактирование

Sub P1()
Dim Путь As String, Файл As String
Dim Книга As Excel.Workbook
Путь = "C:\Documents and Settings\Пользователь\Рабочий стол\Папка\"
Файл = Dir(PathName:=Путь + "*.xls")
Do Until Файл = ""
    Set Книга = Workbooks.Open(Путь + Файл)
    Книга.Close
    Файл = Dir
Loop
Set Книга = Nothing
End Sub

Sub P2()
Dim Путь As String, Файл As String
Dim Книга As Excel.Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
    .ButtonName = "OK"
    .Title = "Выберите папку, содержащую файлы Excel"
    If .Show = 0 Then
        Exit Sub
    End If
    Путь = .SelectedItems(1)
End With
Файл = Dir(PathName:=Путь + "\*.xls")
Do Until Файл = ""
    Set Книга = Workbooks.Open(Путь + "\" + Файл)
    Книга.Close
    Файл = Dir
Loop
Set Книга = Nothing
End Sub

Sub P3()
Dim ФайловаяСистема As New Scripting.FileSystemObject
Dim Папка As Scripting.Folder, Файл As Scripting.File
Dim Книга As Excel.Workbook
Set Папка = ФайловаяСистема.GetFolder(FolderPath:="C:\Documents and Settings\Пользователь\Рабочий стол\Папка")
For Each Файл In Папка.Files
    If Right(Файл.ShortName, 4) = ".xls" Then
        Set Книга = Workbooks.Open(Filename:=Файл.Path)
        Книга.Close
    End If
Next Файл
Set Книга = Nothing
End Sub