Excel VBA——如何快速將一個excel文件中的各個工作表分別保存成不同的工作簿

使用場景：

在很多情況下，公司中收集資料可能都不是雲端收集，到最后可能給到自己是一個Excel文檔，然后里面還一堆sheet，這個時候，使用這段代碼就可以快速將工作表分別保存成不同的工作簿，方便接下來的其他處理。

 使用方法也非常簡單：

將這一段代碼隨便拷貝到一個sheet中，直接點擊執行即可，不需要專門設置一個xlsm文件。

核心代碼：

Sub SaveSheetAsWorkbook()
    Dim theName As String '定義文件名變量
    On Error GoTo Line1 '錯誤處理，報錯直接跳出
    For Each sht In Worksheets '循環本工作簿的各個工作表
        sht.Copy '復制當前工作表
        theName = ThisWorkbook.Path & "_" & sht.Name & ".xls" '拼接保存的文件名
        ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal '設置保存參數
        ActiveWindow.Close '關閉當前被保存的工作簿
    Next
Line1:
End Sub

附件： 百度網盤  提取碼：d2eq

 

tips：這段代碼是保存成xls文件，個別電腦上保存xls可能會彈窗詢問是否確認保存成xls，如果不想彈這個提示，直接修改保存文件名的擴展名即可。