Почему этот цикл не находит мои файлы, которые явно там?

Question

Каждый раз, когда этот сценарий проходит для сохранения Wb, он говорит, что не может найти файл, и спрашивает, был ли он удален или помещен в другое место?

Файлы находятся в правильном пути к папке, который я указал, что может быть причиной этой ошибки?

Я отредактировал свой код, и в этой строке остановился отладчик:

    Set Wb = Workbooks.Open(fileName)

Sub passwordprotect()

Dim fileName As Variant
Dim Wb As Workbook

folderpath = "C:\Realty Services Assessment\"
fileName = Dir(folderpath & "*.xlsx")

Set Wb = Workbooks.Open(fileName)

While fileName <> ""


    Wb.SaveAs , password:="xxxxxxxxxxx"
    Wb.Close

    fileName = Dir
Wend

End Sub

Answer 1

Правильный цикл:

Sub passwordprotect()

Dim fileName As Variant
Dim Wb As Workbook

    folderpath = "C:\Realty Services Assessment\"
    fileName = Dir(folderpath & "*.xlsx")

    While fileName <> ""

        Set Wb = Workbooks.Open(folderpath & fileName)
        Wb.SaveAs , password:="xxxxxxxxxxx"
        Wb.Close

        fileName = Dir
    Wend

End Sub