Šajā rakstā mēs izveidosim makro, lai dzēstu moduli no darbgrāmatas.
Mēs izmantosim MainModule kā neapstrādātu moduli.
Mēs vēlamies atbrīvoties no šī MainModule.
Lai to izdarītu, noklikšķiniet uz šīs pogas.
Loģisks skaidrojums
Šajā rakstā mēs esam izveidojuši divus makro - DeleteVBComponent un call_procedure.
DzēstVBComponent
Tas ņem vērā darbgrāmatas nosaukumu un moduļa nosaukumu kā ievadi un izdzēš moduli no darbgrāmatas.
call_procedure
To izmanto, lai izvadītu makro DeleteVBComponent ar aktīvo darbgrāmatu un MainModule.
Koda skaidrojums
Application.DisplayAlerts = Nepareizi
Šo kodu izmanto, lai atspējotu brīdinājuma ziņojumu.
wb.VBProject.VBComponents.Noņemt wb.VBProject.VBComponents (CompName)
Šis kods tiek izmantots moduļa noņemšanai no darbgrāmatas.
Application.DisplayAlerts = Patiesa
Šo kodu izmanto, lai iespējotu brīdinājuma ziņojumu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub DeleteVBComponent (ByVal wb kā darbgrāmata, ByVal CompName kā virkne) "Brīdinājuma ziņojuma atspējošana Application.DisplayAlerts = False" Ignorēt kļūdas pēc kļūdas Atsākt nākamo "Dzēst komponentu wb.VBProject.VBComponents.Remove wb.VBProject.VBN ) Par kļūdu GoTo 0 'Iespējojot brīdinājuma ziņojumu Application.DisplayAlerts = Patiesa beigu apakšnodaļa zvana_procedūra ()' Zvana dzēšanaVBComponent makro DzēstVBComponent ActiveWorkbook, "MainModule" beigu apakšdaļa
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē