У меня есть макрос, который открывает все файлы .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
Конец петли
Макрос адаптирован из кода, который я вижу на сайте.
