VBA EXCEL中删除存在的宏

最新推荐文章于 2024-07-05 08:53:58 发布

Julyseven

最新推荐文章于 2024-07-05 08:53:58 发布

阅读量1.2k

点赞数

分类专栏： VBA 开发文章标签： excel vba

本文链接：https://blog.csdn.net/Julyseven/article/details/3239563

版权

通过VBA编写宏，在Excel中批量删除指定文件夹内所有工作簿的程序部分。首先引用Microsoft Visual Basic for Applications Extensibility 5.3，然后设置FileSystemObject打开文件夹，遍历文件，逐个打开工作簿，删除每个工作簿的所有VB组件代码，并保存关闭，最后显示提示消息。确保宏安全性设置为信任VBA项目的访问。

摘要由CSDN通过智能技术生成

 
 '批量删除EXCEL文件里的程序部分
'引用:Microsoft Visual Basic for Applications Extensibility 5.3 
'宏安全性里勾选"信任对于"Visual Basic项目"的访问(V)" 
Private Sub CommandButton1_Click()
    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    fname = ActiveWorkbook.Path & "/xls" 
    Set fd = fso.getfolder(fname)
    Set fls &#