【VBA教程二】批量导出工作表

1、  把有多个工作表的工作簿打开

2、  按Alt+F11 打开VBA编辑器

3、  点击插入-模块-模块1

4、  双击模块1、把下面的代码复制到模块1后点击保存

5、  把表格保存为带宏文件.xlsm

6、  运行代码Alt+F8 选择【 导出表格到相同文件夹】

使用视频教程：

代码如下：

Sub 导出表格到相同文件夹()

Application.ScreenUpdating = False

b = Sheets.Count

For i = 1 To b

Sheets(i).Copy

a = ThisWorkbook.Worksheets(i).Name

With ActiveWorkbook

.ActiveSheet.Cells.Select

.ActiveSheet.Cells.EntireColumn.AutoFit

.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx"