错误编译未找到命名参数

zhangweilinsh

各位老师好：我这名称明明有为啥跳出来说未找到参数麻烦老师帮我看一下是不是格式输错了谢谢大家

jaxxcyh

你的宏名明明是"ShouldRemoveTestMacro"，为何写成"TestMacro1"?

zhangweilinsh

jaxxcyh 发表于 2024-8-28 13:35
你的宏名明明是"ShouldRemoveTestMacro"，为何写成"TestMacro1"?

老师我要移除的是模块里面的宏不是这个宏

jaxxcyh

zhangweilinsh 发表于 2024-8-28 13:38
老师我要移除的是模块里面的宏不是这个宏

VBA本身并没有直接删除宏的函数或方法。你用的那句只能是用来删除VBA组件，比如按钮、文本框之类的的东西，直接删除宏是做不到的，VBA并没有建立关于VBA编辑器本身的对象模型。除非使用第三方库，如 VBIDE 库，这是一个非官方但广泛使用的库，可以提供对VBA编辑器的额外访问。

示例代码如下：
Sub DeleteMacro()
    Dim vbProj As VBIDE.VBProject
    Dim vbComp As VBIDE.VBComponent
   
    ' 获取当前工作簿的VB项目
    Set vbProj = ThisWorkbook.VBProject
   
    ' 尝试找到并删除指定的宏模块
    On Error Resume Next ' 忽略错误
    Set vbComp = vbProj.VBComponents("ModuleName") ' 替换ModuleName为实际的模块名
    If Not vbComp Is Nothing Then
        vbComp.Remove ' 删除模块
        MsgBox "宏已被删除。"
    Else
        MsgBox "未找到指定的宏模块。"
    End If
    On Error GoTo 0 ' 取消忽略错误
End Sub

大灰狼1976

可以直接删除的，但没有像直接删除模块那么简单，类似于分析文本，找到需要删除的宏名，再接着找到对应的end sub，然后删除代码行。

jaxxcyh

研究了一下如何获取宏名称的方法：
https://club.excelhome.net/forum ... amp;_dsign=46a188ee

jaxxcyh

codeModule 的 delectelines 方法可以删除指定代码行。

用法：
codeModule.deletelines(起始行，总行数)

当找到了指定宏名，获取其代码总行数，就可以用 delecelines 删除此宏的所有代码行。

zhangweilinsh

jaxxcyh 发表于 2024-8-28 14:00
VBA本身并没有直接删除宏的函数或方法。你用的那句只能是用来删除VBA组件，比如按钮、文本框之类的的东西 ...

太厉害了，谢谢老师

zhangweilinsh

jaxxcyh 发表于 2024-8-28 14:00
VBA本身并没有直接删除宏的函数或方法。你用的那句只能是用来删除VBA组件，比如按钮、文本框之类的的东西 ...

老师现在出现这个错误是不是缺少office插件吗

jaxxcyh

zhangweilinsh 发表于 2024-8-28 17:43
老师现在出现这个错误是不是缺少office插件吗

2楼已更新了程序，另外要使用VBIDE库，需要先做两个准备工作，请见1楼说明。
https://club.excelhome.net/threa ... tml?_dsign=46a188ee