【摘要】怎样把一张excel表的各个sheet分多张excel表导出，一张sheet成为一张excel表，并用原sheet的名称命名新的excel表？用常规的一步步操作大家都知道吧，但工作表一多，工作量是很大的，也就变成不现实了。我用宏来解决，将每个工作表导出到这个文件的同名文件夹下。 Sub SaveAllSheet() Application.ScreenUpdating = False ’另存时覆盖要有提示去除下面一句 Application.DisplayAlerts = False Dim TPath As String, XSheet As Worksheet TPath = ActiveWorkbook.Path For Each XSheet In ActiveWorkbook.Sheets XSheet.Copy ActiveWorkbook.SaveAs Filename:=T
