当前位置:首页 > VBA&EXCEL > 【Excel VBA】批量将工作表转换为独立工作簿

【Excel VBA】批量将工作表转换为独立工作簿

九天狼6年前 (2019-05-18)VBA&EXCEL3692

动画中所粘贴的代码如下:

Sub Newbooks()
    'EH技术论坛。VBA编程学习与实践。看见星光
    Dim sht As Worksheet, strPath$
    With Application.FileDialog(msoFileDialogFolderPicker)
   '选择保存工作薄的文件路径
        If .Show Then
            strPath = .SelectedItems(1)
            '读取选择的文件路径
        Else
            Exit Sub
            '如果没有选择保存路径,则退出程序
        End If
    End With
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Application.DisplayAlerts = False
    '取消显示系统警告和消息,避免重名工作簿无法保存。当有重名工作簿时,会直接覆盖保存。
    Application.ScreenUpdating = False
    '取消屏幕刷新
    For Each sht In Worksheets
    '遍历工作表
        sht.Copy
        '复制工作表,工作表单纯复制后,会成为活动工作薄
        With ActiveWorkbook
            .SaveAs strPath & sht.Name, xlWorkbookDefault
            '保存活动工作薄到指定路径下,以默认文件格式
            .Close True '关闭工作薄并保存
        End With
    Next
    Application.ScreenUpdating = True '恢复屏幕刷新
    Application.DisplayAlerts = True '恢复显示系统警告和消息
    MsgBox "处理完成。", , "提醒"
End Sub


小贴士:

由于代码取消了系统信息警告(Application.DisplayAlerts = False),当保存文件的路径下有重名工作簿时,该段代码会直接用新文件覆盖旧文件,不会发出提醒信息哦。

安,夜夜夜夜夜夜~

本文源自微信公众号:VBA编程学习与实践

如果内容对你有用,请花费几秒钟给个评论!

由于评论审核机制,可能您的评论暂时不可见,不影响查看回复可见的内容!

扫描二维码推送至手机访问。

版权声明:本文由云淡风轻Mr.Liu发布,如需转载请注明出处。

本文链接:https://nylmj.cn/post/93.html

相关文章

是时候制作一份自杀or杀人的工作簿了

是时候制作一份自杀or杀人的工作簿了

1,……Long Long Ago……山的那边海的那边……有位Excel高手……他在一家电子商务公司上班。他有一份Excel工作簿,通过VBA编程将日常工作通通自动化了。他每天闲的除了喝王者农药就是剁...

HI,你会用函数实现网页数据抓取吗?

HI,你会用函数实现网页数据抓取吗?

随着互联网的高速发展,网页数据愈发成为数据分析过程中最重要的数据来源之一。也许正是基于这样的考量,从2013版开始,Excel新增了一个名为Web的函数类别,使用其下的函数,可以通过网页链接从Web服...

不做加班狗——批量生成带照片的准考证

不做加班狗——批量生成带照片的准考证

Word提供的邮件合并功能可以帮助咱们轻松的制作工资条、通知书、邀请函、明信片、准考证、毕业证书等等,一般做法是用Word文档做一个模板,将信息的数据源存放到Excel表格里,通过邮件合并建立起表格与...

这个函数牛到不行了,7.53%的人竟然还不会用

这个函数牛到不行了,7.53%的人竟然还不会用

小伙伴们好啊,今天介绍一个还有7.53%的人不认识的函数:AGGREGATEAGGREGATE函数用法与SUBTOTAL函数类似,但在功能上比SUBTOTAL函数更加强大,不仅可以实现诸如SUM、AV...

如何将Excel中的数据写入Word表?

如何将Excel中的数据写入Word表?

之前我们分享了一期小代码,内容是如何将word中表格的数据读入excel……之后有朋友表示知道了,又问如何将excel中的数据写入word……此时此刻,我再一次清醒的意识到,这世界上像我这样好的人已经...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。