打開表格,點(diǎn)擊其中一個sheet,右擊查看代碼,輸入以下代碼運(yùn)行宏,確認(rèn)即可。 <h5>Sub Export()<br>Application.ScreenUpdating = False<br> MM = ThisWorkbook.Path<br> CC = Sheets.Count<br> For X = 1 To Sheets.Count<br> NN = Sheets(X).Name<br> Sheets(X).Copy<br> ActiveWorkbook.SaveAs MM & "\" & NN & ".xlsx"<br> ActiveWorkbook.Close True<br> Next X<br>Application.ScreenUpdating = True<br>End Sub<br></h5>