将.XLSM保存为VBA中的.XLSX

Question

我正在尝试将文件夹路径中的所有.xlsm文件保存为.xlsx，尽管脚本成功运行，但每个工作簿都会损坏。 有人可以解释我如何克服这个问题

提前谢谢。

Set fso = CreateObject("scripting.filesystemobject")
Set fils = fso.GetFolder("LOCATION\").Files

fldrname2 = Worksheets("Applications").Range("A2").Value

For Each fil In fils
    fldrname2 = Worksheets("Applications").Range("A2").Value
    n = fil.Name
    d = fil.DateLastModified
    fso.CopyFile fil.Path, fil.ParentFolder & fldrname2 & "-" & fil.Name & ".xlsx"
Next fil