xlBook.SaveAs FileName:="E:\backup.xls" ' 先保存备份，再保存到目标文件xlBook.SaveAs FileName:="D:\地\" & xlSheet.Range("c4") & "_" & xlSheet.Range("c5") & "_" & xlSheet.Range("c7") & ".xls"
