excel如何一步操作将所有工作表单独存为excel文件

试试这个宏：

Sub 工作表另存工作簿()
Dim Mbook As Workbook
Set Mbook = ActiveWorkbook
Dim i As Integer
For i = 1 To Mbook.Worksheets.Count
Mbook.Worksheets(i).Copy
ActiveWorkbook.SaveAs Filename:="C:\" & Mbook.Worksheets(i).Name & ".xls"
ActiveWindow.Close
Next i
End Sub

存放位置在C盘目录下，根据实际情况修改。

不能一步操作将所有