如下圖所示,這是個包含多個工作表的工作簿。在日常工作中我們有時候需要將每個工作表另存成多個單獨的工作簿。
成為如下圖所示的樣子:
我們可以手動建立空白工作簿,再將這個工作簿的每個工作表一一複製到新建的工作簿中,如此迴圈6次才能將這個包含6個工作表的工作簿單獨另存成6個工作簿,很麻煩。如果工作表的數量更多,那就很費時間了。那麼我們要怎麼樣才能更快的實現快速另存成工作簿呢?
小編今天介紹一種透過使用程式碼的方法快速實現工作表另存成工作簿的方法:
按ALT+F11,開啟VBE程式設計環境,插入模組。
然後寫入如下程式碼:
Sub save_as_workbook()
Dim wkPath As String
wkPath = Application。ActiveWorkbook。Path
Application。ScreenUpdating = False
Application。DisplayAlerts = False
For Each wk In ThisWorkbook。Sheets
wk。Copy
Application。ActiveWorkbook。SaveAs Filename:=wkPath & “\” & wk。Name & “。xlsx”
Application。ActiveWorkbook。Close False
Next
Application。DisplayAlerts = True
Application。ScreenUpdating = True
End Sub
如下圖所示:
按F5或點下圖三角形按鍵執行程式碼即可快速完成工作表另存成工作簿。
注意,本例執行後生成的工作簿與當前工作簿在同一目錄下。
希望今天的分享對大家的工作有所幫助。