一個工作簿中有多個表格，如何將其表格單獨保存成一個獨立的文檔呢？
如果表格少，操作如下：選中要導出表格的標簽名--鼠標郵件--移動或復制表格--新建工作簿。
當如果表格太多呢，以上方法就太羅嗦了。
簡單方法用VBA,步驟如下：
1、創建一個文件夾，將要分離的工作簿放到該文件夾里，單獨生產的文件也會保存到該文件夾里。
2、調出VBA：如果EXCEL里沒VBA項，調出：EXCEL文件--選項--自定義功能區--在右邊勾選開發工具。
3、輸入VBA代碼：
1）打開vba編輯器：點擊開發工具--點工具欄上最右邊的VB；
2）在左邊的工程區，點選要操作的工作簿中的任意一個工作表，選擇【插入】->【模塊】，會出現代碼區，復制代碼到窗口中，然后點擊【執行】即可
'將每個工作表保存成單獨的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
3）執行分離：
點excel工具欄里的 運行按鈕，就OK，文件會保存到母文件目錄下。
4、也可以將分離的文件保存成一個單獨的PDF文件，而不是EXCEL文件，步驟同上，只是代碼不同。具體的代碼如下：
'將每個工作表保存成單獨的PDF文件
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = FalseFor Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
NextApplication.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
)
