導讀當你有一個擁有若干個工作表的Excel文檔，你想要把這些工作表分別保存成單個獨立的文件，發(fā)送給不同的用戶。你該如何操作？最好的方法就是使用VBA。如果不太熟....

當你有一個擁有若干個工作表的Excel文檔，你想要把這些工作表分別保存成單個獨立的文件，發(fā)送給不同的用戶。你該如何操作？最好的方法就是使用VBA。

如果不太熟悉VBA的小伙伴，可以先花費1分鐘，找到添加VBA代碼的路徑。

• 在【開發(fā)工具】選項卡中找到【Visual Basic】。如果沒有開發(fā)工具選項卡的話，需要在Excel選項中將其勾選顯示。

• 右鍵點擊左側(cè)窗口欄中的任意一個工作簿，選擇【插入】->【模塊】

• 復制代碼到窗口中，然后點擊【執(zhí)行】即可

將每個工作表保存成單獨的Excel文件

將每個工作表保存成單獨的Excel文件

Sub SplitEachWorksheet()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets

ws.Copy

Application.ActiveWorkbook.SaveAs Filename:=FPath & "" & ws.Name & ".xlsx"

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

但是在執(zhí)行上述代碼前，你還得做兩步準備：

• 創(chuàng)建一個文件夾，放置所有獨立文件
• 將主文件也存于此文件夾下

操作完的結(jié)果如下圖所示。

將每個工作表保存成單獨的PDF文件

有的時候，我們非但希望將工作表單獨保存出來，還不希望用戶對文件再進行修改。這個時候，我們也可以考慮將工作表保存成pdf文件。具體的代碼如下：

將每個工作表保存成單獨的PDF文件

Sub SplitEachWorksheet()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets

ws.Copy

Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "" & ws.Name & ".xlsx"

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

這樣的操作結(jié)果如下：

這樣的操作是不是簡單快速呢？再也不需要為此大費周章的手工分割工作簿。省時省力！