Sub 自动将工作表Sheet2保存至E盘() On Error Resume Next shtname = CStr(Range("D6") & "-" & Range("F6") & "-" & Range("H6")) MkDir "E:报表" ActiveSheet.Copy With ActiveWorkbook .SaveAs Filename:="E:报表" & shtname & ".xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False .Close End With End Sub 用于命名的单元格不要有特殊字符,不然达不到效果的!