用“VBA宏”删除指定“VBA宏”

wowo000

各位老师：早上好！请教俺要用一个sub过程来删除另外一个或者几个sub过程，如何写VBA代码？恳请赐教，谢谢！！！

                比如：“模块1”里面有两个过程，分别为“Sub 冬天()”和“Sub 夏季()”，咋写一段VBA代码删除他俩？？？
                此问题可以不模拟附件上传吧？

x-xx-xx

就删除代码呗

x-xx-xx

应该可以不过没用过，我一般都是新增

wowo000

x-xx-xx 发表于 2023-8-9 08:06
就删除代码呗

您好！早上好！俺用VBA代码来实现，可否赐教？

x-xx-xx

要使用VBA代码删除指定的宏，你可以通过以下步骤实现：

1. 打开Visual Basic编辑器：在Excel中按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。

2. 导航到“模块”窗口：在左侧项目资源管理器窗格中找到并展开该工作簿的"Microsoft Excel Objects"节点。然后双击其中一个具有名称类似于"ThisWorkbook"或者是包含所需宏的特定工作表名字 的对象来打开对应模块。

3. 编写删除宏的代码：在选定了相应模块之后，在右侧空白区域内编写如下代码：
```vba
Sub DeleteMacro()
    Application.VBE.ActiveVBProject.VBComponents.Remove _
        VBComponent:=Application.ThisWorkbook.VBProject.vbcomponents("Module_Name")
End Sub
```
请将 "Module_Name" 替换为您想要删除其内容和相关设置以及过程/函数等信息的 VBA 模块名称。
如果需要同时从其他类型文件(例如: ThisDocument, SheetX) 删除，请修改上述行 `ThisWorkbook` 与适当引用进行替换.

4. 运行子程序：点击运行按钮 (位于顶部菜单栏或按F5)，这会执行刚才编写好的DeleteMacro() 子程序，并且会自动移除目标 VBA 宏。

重要提示:
- 在操作前最好备份一次文档，防止意外删除。
- 请确保您有足够的权限来修改VBA项目，否则可能会出现访问被拒绝的错误。

希望这个解释对你有所帮助！如果还有其他问题，请随时提问。

x-xx-xx

问AI呀         

f8b1987

1. 
   
2. Sub DeleteProcedure()
   
3.     Dim moduleName As String
   
4.     Dim procedureName As String
   
5.     Dim startLine As Long
   
6.     Dim endLine As Long
   
7.    
   
8.     moduleName = "模块1" ' 替换为您要删除过程的模块名称
   
9.     procedureName = "冬天" ' 替换为您要删除的过程名称
   
10.    
    
11.     Set codeModule = ThisWorkbook.VBProject.VBComponents(moduleName).codeModule
    
12.    
    
13.     startLine = codeModule.ProcStartLine(procedureName, vbext_pk_Proc)
    
14.     endLine = codeModule.ProcCountLines(procedureName, vbext_pk_Proc)
    
15.    
    
16.     codeModule.DeleteLines startLine, endLine
    
17.    
    
18.     MsgBox "过程删除成功！", vbInformation
    
19. End Sub

复制代码

来源于AI，注意excel必须勾选“信任VB工程访问

（1）EXCEL已设置：  

工具（T）-宏（M）-安全性（M）-可靠发行商（T）-勾选了“信任对于VB项目的访问（V）”

参考
https://club.excelhome.net/thread-947533-1-1.html

x-xx-xx

https://club.excelhome.net/thread-1486897-1-1.html

x-xx-xx

应该就是7楼那样

x-xx-xx

3．删除过程aTest:  
Sub DelCodes()  
       With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
            .DeleteLines . ProcStartLine("aTest", 0), .ProcCountLines("aTest", 0)
       End With
End Sub