对Excel活动工作簿进行拆分，每个工作表单独保存为工作簿文件，文件保存在该工作簿同一文件夹下单独文件夹内
Sub 工作簿拆分所有工作表单独保存文件()'将活动工作簿wb拆分，每个ws单独保存为文件，文件保存在wb同一文件夹下单独文件夹内Application.Visible = False '后台运行，不显示界面Application.DisplayAlerts = False '不显示警告信息Dim fso As Object, save_path, save_file, wb_nameSet fso = CreateObject("Scripting.FileSystemObject")'''注意：当存在ws与wb同名时，SaveAs会报错With ActiveWorkbooksave_path = .Path + "\拆分表" '保存拆分后的表格保存路径wb_name = .Name '当前工作簿文件名和扩展名If Not fso.FolderExists(save_path) Then fso.CreateFolder (save_path) '创建文件夹For Each sht In .Worksheetssht.Copy'ws在copy后自动生成一个新建wb'保存文件全名（文件路径、文件名、扩展名），sheet名称命名save_file = save_path & "\" & sht.Name & "." & fso.GetExtensionName(wb_name)ActiveWorkbook.SaveAs filename:=save_fileActiveWorkbook.Close (False)NextEnd WithSet fso = Nothing '释放内存Application.Visible = TrueApplication.DisplayAlerts = TrueEnd Sub
