求助用vba删除vba

386026398

删除活动表中的vba.rar (17.37 KB, 下载次数: 18)

2024-2-14 23:18 上传

点击文件名下载附件

附表中vba为网上找的一段vba，其目的是删除工作簿中的vba。但实现不了。想修改为只删除活动工作表中的vba

huarong7984

以下代码，仅供参考：

删除所有模块

Sub DeleteAllModules()

    Dim VBComp As Object

    For Each VBComp InThisWorkbook.VBProject.VBComponents

      If VBComp.Type = 1 Then

        ThisWorkbook.VBProject.VBComponents.Remove VBComp

      End If

    Next VBComp

End Sub

删除所有窗体“UserForm1”

Sub DeleteUserForm()

    Dim VBComp As Object

    For Each VBComp In ThisWorkbook.VBProject.VBComponents

        If VBComp.Type = 3 And VBComp.Name ="UserForm1" Then

           ThisWorkbook.VBProject.VBComponents.Remove VBComp

            Exit For

        End If

    Next VBComp

End Sub

删除所有类模块

Sub DeleteAllClassModules()

    Dim VBComp As Object

    For Each VBComp InThisWorkbook.VBProject.VBComponents

        If VBComp.Type = 2 Then

           ThisWorkbook.VBProject.VBComponents.Remove VBComp

        End If

    Next VBComp

End Sub

excel玉米

excel玉米

上面代码用remove语法出错，【运行时错误5，无效的过程调用或参数】，敬请高手解答。
无奈用了下面这两句：
  LCount = .CodeModule.CountOfLines
   .CodeModule.DeleteLines 1, LCount

386026398

excel玉米 发表于 2024-2-15 11:28

谢谢，在vba下实现没问题，在vb下就无反应了。请问在vb下怎么修改

boyayes

还有个思路，就是用代码将活动工作簿另存为".xlsx"格式后，并关闭，这样所有代码和模块将丢失。

xdychina1

好贴，备用

excel玉米

386026398 发表于 2024-2-15 12:50
谢谢，在vba下实现没问题，在vb下就无反应了。请问在vb下怎么修改

没有用vb，抱歉无法解答，请另请高明。