VBA小程序--拆分到工作表到工作簿

最新推荐文章于 2025-05-22 09:22:09 发布

原创最新推荐文章于 2025-05-22 09:22:09 发布 · 481 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #MS #OFFICE #WPS #微软

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码可以将一个包含多个工作表的Excel工作簿拆分成每个工作表单独的工作簿。通过遍历原始工作簿中的所有工作表，复制并保存为独立的.xlsx文件。

Sub 拆分到工作表到工作簿()
    
    Dim wk As Workbook, pt$, k%
    
    Application.DisplayAlerts = False
    
    For Each sht In ActiveWorkbook.Sheets
        
        k = k + 1
        
        Set wk = Workbooks.Add
        
        Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)
        
        pt = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
        
        wk.SaveAs pt
        
        wk.Close
        
    Next
    
    Application.DisplayAlerts = True
    
    MsgBox "拆分工作簿完成"
    
End Sub