excel将sheet工作表批量保存为单独文件或工作簿

1、比如以下数据源，需要将五座神山的工作表单独保存为工作薄

3、在编辑器中，右键点模块（没有模块，右键点excle对象）新增一个模块。

5、注释：Application.ScreenUpdating = False'挢旗扦渌;用来关闭屏幕更新，即不用关注程序的执行，可以提高执行速度。ff = ThisWorkbook.Path & "\五座神山"If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff'如果五座神山的文件架不存在，就新建文件夹；mkdir用来 新建文件夹，也可以自己命名文件名称。

6、此外也可以在工作表上建立一个按钮，将宏命令与他关联，方便以后使用。关于按钮和宏命令的关联方法，可以看我的经验贴https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html

7、运行完毕后，可以看到我们新建的文件夹以及生成的独立的文件。