VBScript5.5.chm中文帮助手册

如:123.xlsx 含有三个sheet分别为a、b、c;拆分成 a.xlsx 、b.xlsx 、 c.xls ,拆分后的a.xls、 b.xls、 c.xls含有相同名称的sheet ----代码如下1: Sub SplitWorkBook_sht() '把工作簿中的多个sheet页拆分成多个工作簿 Dim sht As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs Fi