Sub 工作表分别保存() Dim i As Long, j As Long, k As Long, n n = ActiveWorkbook.Name For i = 1 To ActiveWorkbook.Sheets.Count Sheets(i).Activate Cells.Select Selection.Copy
Workbooks.Add ActiveSheet.Paste
ActiveWorkbook.SaveAs C:\Documents and Settings\Administrator\桌面\ & n & sheet & i '保存路径和名字可以自己修改 ActiveWorkbook.Close