Excel如何快速将工作表拆分成独立文件

Excel 11个月前 芮和
154 0 0

今天分享的仍然是VBA自定义小插件,最近有挺多位小伙伴都在问「Excel快速拆分工作表」的教程,今天福利来了,芮和给大家写了一份非常简单的VBA代码,可以快速将文档中的多份工作表拆分成独立的文件,并保存到当前目录下,先来简单看下效果吧~

Excel如何快速将工作表拆分成独立文件
拆分工作表文档

简单的贴下代码,就不具体解释了,VBA教程面向有一定基础的学员,是Excel中效率最高的功能,没有之一~

Sub generate_book()
    Dim sht As Worksheet, mypath$
    mypath = ThisWorkbook.Path & "\"
    If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For Each sht In Worksheets
        sht.Copy
        With ActiveWorkbook
            .SaveAs mypath & sht.Name, xlWorkbookDefault
        End With
    Next

    MsgBox "处理完成。", , "提醒"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

文中代码获取方式:点击文末「下载按钮」。

——END——

版权声明:芮和 发表于 2020-07-07 0:00:15。
转载请注明:Excel如何快速将工作表拆分成独立文件 | 芮和

相关文章

暂无评论

暂无评论...