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

循环 结束

该宏改编自我在网站上看到的一些代码。