Перебор книг и внесение в них изменений - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы