Question

如何通过VBA代码将打开的保存在“C/4月”的xlsm格式Excel保存到“D/4月”中?

并将保存文件格式改为xlsx格式。

Answer 1

ActiveWorkbook.SaveAs filename:="D:\4月\" & replace(ActiveWorkbook.name,".xlam","xlsx") , fileformat:=xlWorkbookDefault

ActiveWorkbook.Close False '关闭文件，不保存