[已解决]【求教】批量删除过程

xdwy81129

如题，在excel里面，自己建了多个模块，并命名，各模块里面均有多个过程。

希望做到把这个excel文件的所有过程全部删除，但保留空的模块，即每个模块里面的过程都删除，而不是直接删除模块。

最佳答案

月排行榜 / 总排行榜

Zipall

2010-10-29 20:54

Sub test()
    With ThisWorkbook
        For i = 1 To .VBProject.VBComponents.Count
            With .VBProject.VBComponents(i).CodeModule
                .DeleteLines 1, .CountOfLines
            End With
        Next
    End With
End Sub

跳转到最佳答案楼层

Zipall

Sub test()
    With ThisWorkbook
        For i = 1 To .VBProject.VBComponents.Count
            With .VBProject.VBComponents(i).CodeModule
                .DeleteLines 1, .CountOfLines
            End With
        Next
    End With
End Sub

xdwy81129

QUOTE:

以下是引用Zipall在2010-10-29 20:54:00的发言：
Sub test()
    With ThisWorkbook
        For i = 1 To .VBProject.VBComponents.Count
            With .VBProject.VBComponents(i).CodeModule
                .DeleteLines 1, .CountOfLines
            End With
        Next
    End With
End Sub

哇，高手呀，能在帮助各个忙吗？

就是你写的这个过程不删除，或者我新建一个模块叫“删除模块”里面放你写的这个过程，通过不删除该模块的内容来不删除你写的这个过程。

希望可以实现。谢谢

那么的帅

借用2楼的代码
Sub test()
    With ThisWorkbook
        For i = 1 To .VBProject.VBComponents.Count
            If .VBProject.VBComponents(i).CodeModule <> "删除模块" Then
                With .VBProject.VBComponents(i).CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
            End If
        Next
    End With
End Sub

Zipall

假设这段代码放在模块AAA中

Sub TEST()
    With ThisWorkbook
        For i = 1 To .VBProject.VBComponents.Count
            With .VBProject.VBComponents(i)
                If .Name <> "AAA" Then .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
            End With
        Next
    End With
End Sub

xdwy81129

QUOTE:

以下是引用那么的帅在2010-10-29 21:07:00的发言：
借用2楼的代码
Sub test()
    With ThisWorkbook
        For i = 1 To .VBProject.VBComponents.Count
            If .VBProject.VBComponents(i).CodeModule <> "删除模块" Then
                With .VBProject.VBComponents(i).CodeModule
                    .DeleteLines 1, .CountOfLines
                End
  With
            End
  If
        Next
    End
  With
End
  Sub

谢谢那么的帅了

谢谢二楼的最佳答案

那么的帅

5楼的答案更简捷，也学会了新的一招。

爱疯

很少对模块操作，来学习，谢谢[em25][em25]

hhzjxss

好呀，值得学习！支持一下先![em01]

xdwy81129

QUOTE:

以下是引用hhzjxss在2010-10-29 21:18:00的发言：
好呀，值得学习！支持一下先![em01]

大侠都来支持，最佳答案的老师也是个大侠了

谢谢大家关注问题