Перебор книг и внесение в них изменений - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д