Excel VBA - открывать книги, запускать макросы, сохранять и закрывать

Question

У меня есть макрос, который открывает все файлы .xls в папке, а затем запускает макрос, чтобы что-то сделать с этими файлами, сохраняет и закрывает их как .xls.Моя цель - сохранить файлы, но как файлы .xlsx.Я уже пробовал использовать FileFormatNum = 51, FileFormat = 51, но ни один из них не работал.

Если у кого-то есть лучший подход, я ценю помощь.

Sub OpenSave()
Dim myfiles, wb As Workbook, ws As Worksheet
myfiles = Dir(ThisWorkbook.Path & "\*.xls")
Do While Len(myfiles) <> 0
Debug.Print myfiles
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfiles)
   ' Do your stuff here (edit, copy, sort etc...)
Call a Macro
If wb.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Close SaveChanges:=True
Set wb = Nothing
   myfiles = Dir
   End If

Loop End Sub

Макрос адаптирован из некоторого кода, который я вижу на сайте.