MyTetra Share
Делитесь знаниями!
Работа с кодом VBA
Время создания: 21.09.2019 13:54
Раздел: !Закладки - VBA - VBA управление кодами

*******************

Sub DeleteAllLines() ' удаляет все что написано в Модуле1

With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule

.DeleteLines 1, .CountOfLines

End With

End sub

*******************

Sub DeleteModule() ' удаляет сам Модуль1

Dim vbc As VBComponent

Set vbc = ThisWorkbook.VBProject.VBComponents("Module1")

ThisWorkbook.VBProject.VBComponents.Remove vbc

Set vbc = Nothing

End sub

*******************

Sub DeleteModule() ' удаляет весь макрос

Dim tmp As String

Dim vbc As VBComponent

Dim prj As VBIDE.VBE

 

Set prj = Excel.Application.VBE

 

For Each vbc In prj.VBProjects("NAME").VBComponents

If (vbc.Type = vbext_ct_MSForm Or vbc.Type = vbext_ct_StdModule Or vbc.Type = vbext_ct_ClassModule) And vbc.Name <> "Module2" Then

tmp = vbc.Name

prj.VBProjects("NAME").VBComponents.Remove vbc

tmp = ""

End If

Next vbc

Set prj = Nothing

 

End sub

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования