欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

Excel将多个sheet单独保存放在文件夹中 --gx

程序员文章站 2022-07-13 14:33:01
...

1、打开Excel文件,在底部会有多个sheet,首先按ALT+F11,打开vba编辑器;
2、在左侧编辑器的空白处单击右键,插入–>模块,将下面代码复制后运行,桌面就会生成一个文件夹,文件夹中就会包含单独的sheet文件。
注意:文件夹名称的位置,可以根据需要自己删除后修改。

Sub saveworkbook()

'将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称

Application.ScreenUpdating = False '关闭屏幕更新

Dim ff As String '定义字符变量

ff = ThisWorkbook.Path & "\文件夹名称"

'指定建立新的工作簿保存到的路径

If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff

'如果五座神山的文件架不存在,就新建文件夹;mkdir用来 新建文件夹

Dim st As Worksheet   '定义工作表变量

For Each st In Worksheets  '遍历所有的sheet工作表

   st.Copy     ' 拷贝sheet工作表到新的工作簿,即将工作表另存为新的文件。

   ActiveWorkbook.SaveAs ff & "\" & st.Name & ".xlsx"  '保存工作簿,并命名成工作表的名称

   ActiveWorkbook.Close         '关闭工作表

   Next '执行遍历循环体

Application.ScreenUpdating = True   '开启屏幕更新

End Sub


相关标签: Excel导出多个sheet