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

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
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容