Перебор книг и внесение в них изменений - VBA

Формулировка задачи:

Доброго дня! Подскажите, как можно перебрать все книги excel в определенной папке (все книги excel одного формата) и произвести во всех этих книгах изменения, преобразовать в число диапазон ячеек. Как преобразовать в число диапазон ячеек я нашел, а вот как "бегать" по файлам и производить в них изменения нет. Подскажите пожалуйста! Заранее спасибо!

Решение задачи: «Перебор книг и внесение в них изменений»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
    Dim MyPath As String, MyName As String
    Dim wbk As Workbook
    MyPath = "D:\Документы"
    MyName = Dir(MyPath, vbDirectory)
    Do While MyName <> ""
        If MyName <> "." And MyName <> ".." Then
            If MyName Like "*.xls*" Then ' Маска файлов с расширениями Excel
                Set wbk = Workbooks.Open(MyPath & "" & MyName)
                ' Делаем что-то в книге wbk
                wbk.Close SaveChanges:=True
                Set wbk = Nothing
            End If
        End If
        MyName = Dir
    Loop
End Sub