VBA EXCEL中删除存在的宏

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

Julyseven

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

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/Julyseven/article/details/3239563

VBA 开发专栏收录该内容

2 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'批量删除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 = fd.Files
    For Each fl In fls
        Set wb = Workbooks.Open(fname & "/" & fl.Name)
    
        With Application.VBE.ActiveVBProject
            For i = .VBComponents.Count To 1 Step -1
                LCount = .VBComponents(i).CodeModule.CountOfLines
                .VBComponents(i).CodeModule.DeleteLines 1, LCount
                .VBComponents.Remove .VBComponents(i)
            Next i
        End With
    wb.Save
    wb.Close
    Next
    
    MsgBox "DONE!"
End Sub