Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Замена макросом макроса в модуле ЭтаКнига.
 
#1
21.10.2017 07:24:14
Всем доброго времени суток.
Есть книга в ней в модуле ЭтаКнига есть макросы, как все эти макросы удалить и записать по новой.
Как удалить вроде нашел,
http://www.excel-vba.ru/chto-umeet-excel/kak-udalit-makrosy-v-knige/
но вот как туда скопировать то что нужно?
Изменено: Николай - 21.10.2017 07:24:52
 
 
 
#2
21.10.2017 10:34:34
Для поиска и замены текста (без построчного чтения) во всех модулях открытой рабочей книги, можно использовать следующий пример, разумеется, указав свой текст.
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
21.10.2017 11:32:15
Sanja,
А если без всякого поиска и замены, а тупо вставить заданный текст в модуль ЭтаКнига.
Вот такой код чистит.
Код
Sub Delete_Macroses_In_One_Comp()
    Dim oVBComponent As Object, lCountLines As Long
    Set oVBComponent = ActiveWorkbook.VBProject.VBComponents("ЭтаКнига")
    With oVBComponent
        lCountLines = .CodeModule.CountOfLines
        .CodeModule.DeleteLines 1, lCountLines
    End With
    Set oVBComponent = Nothing
End Sub
 
 
 
#4
21.10.2017 14:07:05
Сделал вручную, благо листов всего 18.
Узнал, что одновременно можно открыть не более 15 файлов, где-то видать в винде ограничение есть.
Макрокодер к сожалению оказался бесполезен.
 
 
 
Страницы: 1
Наверх