Автоматическое восстановление количества поврежденных файлов .xlsx через VBA скрипт

Question

У меня есть несколько поврежденных файлов .xlsx в каталоге.Я хочу открыть каждый файл для восстановления и сохранить его с тем же именем через скрипт VBA.

Я попытался использовать следующий фрагмент кода для решения этой проблемы:

Sub ProcessFiles()
Dim Filename, Pathname As String
Dim wb As Workbook

Pathname = ActiveWorkbook.Path & "\output\"
Filename = Dir(Pathname & "*.xlsx")
Do While Filename <> ""
    Set wb = Workbooks.Open(Pathname & Filename, CorruptLoad:=xlRepairFile)
    wb.Close SaveChanges:=True
    Filename = Dir()
Loop
End Sub

Но этот код восстанавливает только первый файл и открывает проводник Windows для сохранения файла вручную.

Есть ли способ выполнить восстановление и автоматически сохранить все файлы с одинаковым именем в одной папке?

Answer 1

Я годами не общался с VBA, но есть явный метод wb.SaveAs, который можно вызвать.

Answer 2

Вы установили Application.DisplayAlert = False?Твои коды вроде в порядке.Просто включите его позже.