1、 ThisWorkbook.Sheets(Array("挢旗扦渌;审核要点", "管控"荑樊综鲶, "投资分解表", "任务书文号", "2020年项目", "2021年项目")).Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\汇总后.xlsx" 如上我们先对需要保存的SHEET进行复制,再进行另存为,另存为文件的后缀为xlsx,这样就能得到不带宏的工作簿了。
1、 ThisWorkbook.Sheets(Array("挢旗扦渌;审核要点", "管控"荑樊综鲶, "投资分解表", "任务书文号", "2020年项目", "2021年项目")).Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\汇总后.xlsx" 如上我们先对需要保存的SHEET进行复制,再进行另存为,另存为文件的后缀为xlsx,这样就能得到不带宏的工作簿了。