• serg
  • Восстановленный участник
  • На форуме с 29 сентября 2006г.
  • Сообщений: 23
  • Спасибо: 0

Тема: Удаление модулей

Уважаемые Господа. Помогите мне решить проблему-как программно удалить (очистить) стандартные модули в Excel (лист1....n), ЭтаКнига?
Помогите пожалуйста!Очень нужно!!!

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Удаление модулей

> serg
Не совсем понятен вопрос, откуда ты собираешься
делать вызов такой программы: из другой книги
Excel, из активной книги или из АвтоКАДа?
Тут три большие разницы
~'J'~

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Удаление модулей

> serg
Для примера удаляет модуль по имени
из текущей книги:

Option Explicit
' добавить ссылку на библиотеку: MS Visual Basic for Applications Extensibility 5.X
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Public Sub RemoveModule (modName As String)
    Dim vbStuffs As New VBComponents
    On Error Resume Next
    Set vbStuffs = Application.VBE.ActiveVBProject.VBComponents
     vbStuffs.Remove vbStuffs.Item(modName)
End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'

~'J'~