带宏工作簿另存成不带宏工作簿

1、    ThisWorkbook.Sheets(Array("审核要点", "管控", "投资分解表", "任务书文号", "2020年项目", "2021年项目")).Copy

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\汇总后.xlsx"

    如上我们先对需之散夏要保存的SHEET进行复扬沃制，再进行另存为，另存为文件的后缀为xlsx，这样就能得到不带宏的工作簿了。掩驼

2