如何將包含多工作表的工作簿另存成多個工作簿?

如何將包含多工作表的工作簿另存成多個工作簿?

如下圖所示,這是個包含多個工作表的工作簿。在日常工作中我們有時候需要將每個工作表另存成多個單獨的工作簿。

如何將包含多工作表的工作簿另存成多個工作簿?

成為如下圖所示的樣子:

如何將包含多工作表的工作簿另存成多個工作簿?

我們可以手動建立空白工作簿,再將這個工作簿的每個工作表一一複製到新建的工作簿中,如此迴圈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或點下圖三角形按鍵執行程式碼即可快速完成工作表另存成工作簿。

注意,本例執行後生成的工作簿與當前工作簿在同一目錄下。

希望今天的分享對大家的工作有所幫助。

TAG: 工作另存ActiveWorkbook所示如下