Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Applicaon.ScreenUpdang = False '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\" '当前工作簿的文件目录
For Each sht In Sheets
sht.Copy
AcveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名称为文件名）
AcveWorkbook.Close
Next
Applicaon.ScreenUpdang = True '恢复屏幕刷新
End Sub
评论1