Ищите решение обновить несколько книг Excel в одном каталоге?

Question

Попытка автоматизировать обновления нескольких файлов Excel.

(возможно, я сталкиваюсь с неправильными вызовами пути к файлу)

Мой код:

Sub UpdateFiles()
    MyDir = Application.ThisWorkbook.Path
    DataDir = MyDir & "\folder1\"
    ChDir (DataDir)
    Nextfile = Dir("*.xlsx")
    While Nextfile <> ""
        Workbooks.Open (Nextfile)
        Workbooks(Nextfile).Sheets("sheet1").Range("F22") = "Major"
        Workbooks(Nextfile).Save
        Workbooks(Nextfile).Close
        Nextfile = Dir()
    Wend
End Sub

Хотел бы, чтобы данные в ячейке F22 на листе 1 читались как "Major"

Answer 1

* Вместо x

Шаблон "*.xls*" позволяет открывать как файлы .xlsx и .xlsm , так и дополнительно .xls файлы

Код

Sub UpdateFiles()
    MyDir = Application.ThisWorkbook.Path
    DataDir = MyDir & "\folder1\"

Nextfile = Dir("*.xls*")

    While Nextfile <> ""
        With Workbooks.Open (Nextfile)
            .Sheets("sheet1").Range("F22") = "Major"
            .Save
            .Close
        End With
        Nextfile = Dir()
    Wend
End Sub