胜芳新闻,胜芳资讯

您当前的位置:胜芳人才网 >> 胜芳资讯 >> 教育培训 >> Excel工作表拆分工作簿VBA代码分享(许老师办公)
Excel工作表拆分工作簿VBA代码分享(许老师办公)
2022-07-08|资讯来源: 胜芳人才网|查看: 2377

Private Sub 按工作表拆分工作簿()


       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

          ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"


   End Sub


  • 温馨提示:以上Excel工作表拆分工作簿VBA代码分享(许老师办公)的资讯来自胜芳人才网(胜芳地区找工作,发布招聘信息的胜芳人才网招聘网站),每天更新胜芳最新招聘信息。本内容地址:http://www.sfrcw.cn/article/articledetail-429.html转载请注明
最新资讯
微信分享
胜芳保安招聘胜芳兼职招聘招聘胜芳司机招聘胜芳会计招聘胜芳外贸业务招聘胜芳销售招聘胜芳设计招聘

关注微信公众号

访问手机版本