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

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

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

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

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

將每個(gè)工作表保存成單獨(dú)的Excel文件

'將每個(gè)工作表保存成單獨(dú)的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í)行上述代碼前,，你還得做兩步準(zhǔn)備：

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

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

將每個(gè)工作表保存成單獨(dú)的PDF文件

有的時(shí)候,，我們非但希望將工作表單獨(dú)保存出來(lái)，還不希望用戶對(duì)文件再進(jìn)行修改,。這個(gè)時(shí)候,，我們也可以考慮將工作表保存成pdf文件。具體的代碼如下：

'將每個(gè)工作表保存成單獨(dú)的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é)果如下：

這樣的操作是不是簡(jiǎn)單快速呢？再也不需要為此大費(fèi)周章的手工分割工作簿,。省時(shí)省力,！