1.Alt+F11 进入VBE
2.菜单:插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8 选Test,点击运行
2.菜单:插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8 选Test,点击运行
'将工作簿所有工作表另存为单独的文件。
'路径为原工作簿路径,文件名为工作表名
Sub Test()
Dim Sht As Worksheet
For Each Sht In Sheets
Sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xls"
ActiveWorkbook.Close
Next
End Sub