美文网首页
excel怎样把多个工作表保存为多个文件

excel怎样把多个工作表保存为多个文件

作者: 26小瑜儿 | 来源:发表于2020-11-29 09:21 被阅读0次
image.png

按住 Alt+F11弹出以下界面

image.png
Sub 拆分工作表()

    Dim i

    Dim sht As Worksheet

    Application.DisplayAlerts = False

    For Each sht In Sheets

        sht.Copy

        i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"

        ActiveWorkbook.SaveAs i

        ActiveWorkbook.Close

    Next

    Application.DisplayAlerts = True

    MsgBox "工作表生成文件完成!", vbOKOnly, "提示"

End Sub

运行结果:

image.png

相关文章

网友评论

      本文标题:excel怎样把多个工作表保存为多个文件

      本文链接:https://www.haomeiwen.com/subject/euynzctx.html