【办公小技巧】Excel多个sheet导出为单独的xls或xlsx

1.光标在sheet处右击，选择查看代码
2.进入VBA窗口
3.复制下面的代码到代码窗口
4.点击运行
5.导出的sheet将以原sheet名的形式存储于原文件夹

'将工作簿所有工作表另存为单独的文件。 
'路径为原工作簿路径，文件名为工作表名 
 
Sub Test() 
    Dim Sht As Worksheet 
    For Each Sht In Sheets 
        Sht.Copy 
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xlsx" 
        ActiveWorkbook.Close 
    Next 
End Sub