Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal "將工作簿另存為EXCEL預設格式 ActiveWorkbook.Close Next MsgBox "檔案已經被分拆完畢!" End Sub
開啟需要編輯的Excel文件。如圖所示，工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。
右鍵任意一個工作表標籤，在彈出的下拉列表中選擇檢視程式碼。即彈出程式碼視窗。如下圖所示。
Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal "將工作簿另存為EXCEL預設格式 ActiveWorkbook.Close Next MsgBox "檔案已經被分拆完畢!" End Sub
單擊執行-執行子過程|窗體 幾秒過後 彈出提示視窗“檔案已被拆分完畢” 如下圖所示
5返回Excel工作簿檔案所在路徑 檢視 如下圖所示 原先工作簿中的工作表已經成為單獨的工作簿了！不信 可以對照檢視圖中的修改日期