Excel如何批量导出工作簿sheet为独立工作表

1、Excel下面有多个sheet工作簿，要将其以sheet表名称导出为Excel.xlsx表格。

2、打开，开发工具——VBA编辑器。

3、在窗口左侧，插入新的模块，如下图。

4、在模块编辑器中输入代码：

Sub 批量导出工作簿()

Application.ScreenUpdating = False

For Each sht In Sheets

sht.Copy

ActiveWorkbook.SaveAs "C:\Users\Administrator\Desktop\新建文件夹 (3)\" & sht.Name

ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub

可复制代码。

5、然后点击运行，运行该段VBA代码。

6、最后，原Excel下的工作表格，全部都导出来了。