快好知 kuaihz

VBA 实例 拆分工作薄

Sub 拆分工作薄()

Dim sht As Worksheet "定义一个工作变量 sht

Dim mybook As Workbook

"定义一个工作簿变量 mybook

Application.ScreenUpdating = False

Set mybook = ActiveWorkbook

VBA.MkDir (mybook.Path & "分后数据")

For Each sht In mybook.Sheets

    sht.Copy

    With ActiveWorkbook

            .SaveAs Filename:=mybook.Path & "分后数据" & sht.Name, FileFormat:=56

            .Close

    End With

Next

Application.ScreenUpdating = True

End Sub

本站资源来自互联网,仅供学习,如有侵权,请通知删除,敬请谅解!
搜索建议:VBA 实例 拆分工作薄  拆分  拆分词条  实例  实例词条  工作  工作词条  VBA  VBA词条  
综合

 【Colab系列】#@title...

讲解对象:【Colab系列】#@title有什么作用作者:融水公子 rsgz文章出处:360doc个人图书馆[其他平台均为盗版] 提醒:建议大家电脑浏...(展开)