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

如果表格少，操作如下：選中要導(dǎo)出表格的標(biāo)簽名--鼠標(biāo)郵件--移動(dòng)或復(fù)制表格--新建工作簿。

當(dāng)如果表格太多呢，以上方法就太羅嗦了。

簡(jiǎn)單方法用VBA,步驟如下：

1、創(chuàng)建一個(gè)文件夾，將要分離的工作簿放到該文件夾里，單獨(dú)生產(chǎn)的文件也會(huì)保存到該文件夾里。

2、調(diào)出VBA：如果EXCEL里沒(méi)VBA項(xiàng)，調(diào)出：EXCEL文件--選項(xiàng)--自定義功能區(qū)--在右邊勾選開(kāi)發(fā)工具。

3、輸入VBA代碼：

1）打開(kāi)vba編輯器：點(diǎn)擊開(kāi)發(fā)工具--點(diǎn)工具欄上最右邊的VB；

2）在左邊的工程區(qū)，點(diǎn)選要操作的工作簿中的任意一個(gè)工作表，選擇【插入】->【模塊】，會(huì)出現(xiàn)代碼區(qū)，復(fù)制代碼到窗口中，然后點(diǎn)擊【執(zhí)行】即可

'將每個(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

3）執(zhí)行分離：

點(diǎn)excel工具欄里的 運(yùn)行按鈕，就OK，文件會(huì)保存到母文件目錄下。

4、也可以將分離的文件保存成一個(gè)單獨(dú)的PDF文件，而不是EXCEL文件，步驟同上，只是代碼不同。具體的代碼如下：

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

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。