如何批量选择删除文件夹及子文件夹内所有EXCEL工作表中的宏代码

蒋智龙

如何批量选择删除文件夹及子文件夹内所有EXCEL工作表中的宏代码

ykcbf1100

摸拟一下数据，上个附件吧，更快解决问题。

蒋智龙

ykcbf1100 发表于 2024-3-30 21:27
摸拟一下数据，上个附件吧，更快解决问题。

如何批量选择删除文件夹及子文件夹内所有EXCEL工作表中的宏代码

ykcbf1100

蒋智龙 发表于 2024-3-30 21:54
如何批量选择删除文件夹及子文件夹内所有EXCEL工作表中的宏代码

你要把工作簿中的所有工作表都删除？还是删除所有文件？

蒋智龙

ykcbf1100 发表于 2024-3-30 21:58
你要把工作簿中的所有工作表都删除？还是删除所有文件？

只删除里面的宏代码

蒋智龙

ykcbf1100 发表于 2024-3-30 21:58
你要把工作簿中的所有工作表都删除？还是删除所有文件？

只删除里面的宏代码

ykcbf1100

蒋智龙 发表于 2024-3-30 22:24
只删除里面的宏代码

那另存为xlsx文件就行了

liulang0808

https://club.excelhome.net/thread-1258425-1-1.html
遍历文件的资料，楼主可以就看下
具体可以考虑遍历文件，然后保存为xlsx文件，再删除原来的xlsm文件即可

蒋智龙

ykcbf1100 发表于 2024-3-30 23:31
那另存为xlsx文件就行了

量很多~！确实不方便工作效率。我这里有一个模板 不知道怎么小改。

蒋智龙

ykcbf1100 发表于 2024-3-30 23:31
那另存为xlsx文件就行了

Sub RemoveMacrosFromSelectedFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim vbaProj As VBAProject
    Dim vbaComp As VBAComponent
   
    ' 使用文件夹选择对话框让用户选择一个文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show = -1 Then ' 用户按下了确定按钮
            folderPath = .SelectedItems(1) & "\"
        Else
            MsgBox "未选择文件夹。", vbExclamation
            Exit Sub
        End If
    End With
   
    ' 检查文件夹路径是否正确
    If Dir(folderPath, vbDirectory) = "" Then
        MsgBox "指定的文件夹不存在，请检查路径。", vbExclamation
        Exit Sub
    End If
   
    ' 获取文件夹内的第一个Excel文件
    fileName = Dir(folderPath & "*.xls*")
   
    ' 循环遍历文件夹内的所有Excel文件
    Do While fileName <> ""
        ' 打开工作簿不可见
        Set wb = Workbooks.Open(folderPath & fileName, ReadOnly:=True)
        
        ' 尝试移除工作簿中的宏
        On Error Resume Next ' 忽略错误，继续执行下一条语句
        Set vbaProj = wb.VBProject
        For Each vbaComp In vbaProj.VBComponents
            vbaComp.CodeModule.DeleteLines 1, vbaComp.CodeModule.CountOfLines
        Next vbaComp
        On Error GoTo 0 ' 恢复默认的错误处理
        
        ' 保存并关闭工作簿
        wb.Close SaveChanges:=False
        
        ' 获取下一个文件名
        fileName = Dir()
    Loop
   
    ' 完成消息提示
    MsgBox "选定文件夹内所有工作簿的宏代码已被移除。", vbInformation
End Sub