| Вопрос: Удаление модуля VBA | Добавлено: 05.08.04 15:00 |
Автор вопроса:  Stas2k
|
| Кто-нибудь знает как программно удалить из рабочей книги модуль. Пробовал использовать скрытые классы Modules и Module, но ни фига не получается. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: .COM ICQ: 212158853 Вопросов: 4 Ответов: 79 |
Профиль | | #1 | Добавлено: 05.08.04 19:10 |
|
Sub ModuleRemove()
Dim NameMod As String Dim flag As Boolean flag = False NameMod = LCase(InputBox("Имя модуля для удаления:"  )
For i = 1 To Application.ActiveWorkbook.VBProject.VBComponents.Count If LCase(Application.ActiveWorkbook.VBProject.VBComponents.Item(i).Name) = NameMod Then Set r = Application.ActiveWorkbook.VBProject.VBComponents.Item(i) Application.ActiveWorkbook.VBProject.VBComponents.Remove r MsgBox ("Модуль " & NameMod & " удален!"
flag = True Exit For End If Next If flag = False Then MsgBox ("Модуль " & NameMod & " не найден!"
End Sub При этом учти, чтобы данный макрос отработал нужно в меню Сервис/Макрос/Безопасность не вкладке "Надежные источники" поставить галку "Доверять доступ к Visual Basic Project" |
||
|
Номер ответа: 2 Автор ответа: ZafarВопросов: 9 Ответов: 14 |
Web-сайт: Профиль | | #2 | Добавлено: 10.09.04 10:55 |
|
Привет
Есть хорошие исходники в одном сайте ссылка microsoft.com/rus/offext там точно есть что тебе нужно! |
||
|
Номер ответа: 3 Автор ответа: ZafarВопросов: 9 Ответов: 14 |
Web-сайт: Профиль | | #3 | Добавлено: 10.09.04 10:56 |
|
Ёще можешь написать мне на мыло у меня исходников
200 mb там я тебе поишу было такое у меня |
||
Страница: 1 |