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