精选优质文档-倾情为你奉上怎样把一张excel表的各个sheet分多张excel表导出，一张sheet成为一张excel表，并用原sheet的名称命名新的excel表？用常规的一步步操作大家都知道吧，但工作表一多，工作量是很大的，也就变成不现实了。我用宏来解决，将每个工作表导出到这个文件的同名文件夹下。Sub SaveAllSheet()Application.ScreenUpdating = False另存时覆盖要有提示去除下面一句Application.DisplayAlerts = FalseDim TPath As String, XSheet As WorksheetTPath = ActiveWorkbook.PathFor Each XSheet In ActiveWorkbook.SheetsXSheet.CopyActiveWorkbook.SaveAs Filename:=TPath & & ActiveSheet.Name & .xlsActiveWindow.CloseNext另存时覆盖要有提示去除上面相应去
