代码中保存文件并命名的语句是：.saveas "c:\aaa.xlsx"要改变路径和名称修改引号里面的内容就可以了，例如：.saveas "c:\" & [e1] & "-" [e2] & ".xlsx"
Tname=range("E1") & "-" & range("E2") & ".xlsx".saveas "c:\" & Tname
