excel - 在 VBA 中将 .XLSM 保存为 .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