如何快速將多個excel工作表批量另存為單獨的工作簿

如何快速將多個excel工作表批量另存為單獨的工作簿

有時會遇到這種情況，某個Excel工作簿中包含許多工作表，需要把其中的某個工作表發(fā)送給其他用戶，或者將某幾個工作表發(fā)送給不同的用戶，通常的做法是將這些工作表移動或復制到新工作簿中，保存后再發(fā)送給他們。當工作表的數量較多時，逐一手動操作顯得有些繁瑣，這時用下面的VBA代碼就非常方便了，方法如下：

按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下列代碼：

Sub SaveSheetAsWorkbook()Dim theName As StringOn Error GoTo Line1For Each sht In ActiveWindow.SelectedSheetssht.CopytheName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & sht.Name & ".xls"ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormalActiveWindow.CloseNextLine1:End Sub

關閉VBA編輯器，返回Excel界面，選擇需要單獨保存為工作簿的工作表，如果要選擇多個工作表，可按Ctrl鍵或Shift鍵進行選擇，然后按Alt+F8打開“宏”對話框，選擇“SaveSheetAsWorkbook”宏執(zhí)行即可。

上述代碼將每個所選的工作表單獨保存為一個工作簿，存放位置與原工作簿相同，名稱為“原工作簿名稱_工作表名稱.xls”。如果是在新建且未保存的工作簿中運行代碼，Excel會將新生成的工作簿保存到默認的文件位置，如“我的文檔”。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。