一個工作簿中有多個表格，如何將其表格單獨保存成一個獨立的文檔呢？

如果表格少，操作如下：選中要導出表格的標簽名--鼠標郵件--移動或復制表格--新建工作簿。

當如果表格太多呢，以上方法就太羅嗦了。

簡單方法用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

總結

以上是生活随笔為你收集整理的vb整合多个excel表格到一张_[Excel]同一工作簿中多个工作表保存成独立的表格的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。