目标
一个excel文件里面有50个工作簿，把这50个工作簿分存为50个excel文件
行动
- 将原excel文件放到一个子目录中，就他一个文件，打开之。
- 按Alt+F11 然后顶部打开 视图 -》 代码窗口
- 输入如下代码
Dim Sht As Worksheet, Wp As String, Wkb As Workbook
Set Wkb = ActiveWorkbook
Wp = Wkb.Path
For Each Sht In Wkb.Worksheets
Sht.Select
Sht.Copy
ActiveWorkbook.SaveAs Filename:=Wp & "\" & Sht.Name & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close 0
Next
End Sub
- 点击顶部 保存 按钮
- 点击 格式 菜单下的那个绿色 向右的小箭头 执行该段代码
