精品伊人久久大香线蕉,开心久久婷婷综合中文字幕,杏田冲梨,人妻无码aⅴ不卡中文字幕

1，Alt+F11 進入VBE
2，菜單：插入-模塊。
3，復制下面的代碼到光標處

Sub 另存所有工作表為獨立工作簿()

Dim sht As Worksheet

Application.ScreenUpdating = False         '禁用屏幕刷新

mypath = ThisWorkbook.Path & '\'            '默認保存在當前文件夾
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs mypath & sht.Name & '.xls', FileFormat:=xlExcel8
ActiveWorkbook.Close

Next
Application.ScreenUpdating = True          '恢復屏幕刷新

End Sub

4，關閉VBE窗口

5，Alt+F8 選擇宏“另存所有工作表為獨立工作簿”,點擊運行