如何用vba删除所有vba工程中的vba代码?

如下图所示:

vba工程中有许多组件,每个组件中都可能有vba代码,如果要把所有vba代码都删除,需要访问组件的CodeModule对象。

具体步骤如下:

  1. 先遍历所有VBComponent对象
  2. 获取所有VBComponent对象的CodeModule对象的CountOfLines,也就是总的代码行数。
  3. 最后用DeleteLines方法删除所有代码。

以下示例代码可以删除除了当前组件以外的其它所有组件中的vba代码:

如果要删除具体的组件的vba代码,比如删除Sheet1类模块内的所有vba代码,可以用CodeName作为索引,直接访问相应的组件,代码如下:

 





       

发表评论