Макросом обновить макрос...

[sasha_prof]

Возможно ли макросом из одной книги обновить часть макроса в другой книге???

[IgorGO]

поищите книгу Джона Уокенбаха "Профессиональное программирование на VBA в Excel 2002".
Там есть пример как полностью заменить модуль или часть кода.
Удачи!

[sasha_prof]

Это очень сложно??? Может ктото может подсказать?

[sasha_prof]

Сообщение от IgorGO

поищите книгу Джона Уокенбаха "Профессиональное программирование на VBA в Excel 2002".
Там есть пример как полностью заменить модуль или часть кода.
Удачи!

Извините, я что-то не могу найти...
Если у Вас есть эта книга подскажите плиз какая глава или стр.

[EducatedFool]

Скачать книгу Джона Уокенбаха "Профессиональное программирование на VBA в Excel 2002" можно здесь: http://excelvba.ru/books.html
Читайте, начиная с 679-й страницы.
На странице 682 есть пример:

Листинг 28.3. Обновление существующего модуля кода

[sasha_prof]

Сообщение от EducatedFool

Скачать книгу Джона Уокенбаха "Профессиональное программирование на VBA в Excel 2002" можно здесь: http://excelvba.ru/books.html
Читайте, начиная с 679-й страницы.
На странице 682 есть пример:

Огромнейшее спасибо. Нашел.

Возникнет ли проблема если у меня на обновляемую книгу стоит пароль на макросы???

[sasha_prof]

Sub ReplaceModule()

' Ýêñïîðò Modulel èç òåêóùåé êíèãè
Filename = ThisWorkbook.Path & "Ntempmodxxx.bas"
    ThisWorkbook.VBProject.VBComponents ("Module1")
        .Export Filename
' Çàìåíà Modulel â ôàéëå User3oo4.xls


Set VBF = ActiveWorkbook.VBProject
On Error GoTo ErrHandle
With VBP.VBComponents
    .Remove VBP.VBComponents("Module1")
    .Import Filename
End With
' Óäàëåíèå âðåìåííîãî ôàéëà
Kill Filename
MsgBox "Ìîäóëü óñïåøíî çàìåíåí.", vblnformation
Exit Sub
ErrHandle:
' Îøèáêà?
MsgBox "ÎØÈÁÊÀ. Íåâîçìîæíî çàìåíèòü ìîäóëü.", _
vbCritical



End Sub

Что-то здесь материться???

[EducatedFool]

Что-то здесь материться

В коде много ошибок распознавания текста (русские буквы перемешаны с латиницей), так что используйте как образец, а в VBA набирайте код вручную.

[sasha_prof]

Сообщение от EducatedFool

В коде много ошибок распознавания текста (русские буквы перемешаны с латиницей), так что используйте как образец, а в VBA набирайте код вручную.

Вот пример. Вродебы все правильно но матерится

[EducatedFool]

А если немного внимательнее посмотреть на код, и исправить пару ошибок?

Sub ReplaceModule()
    ' Экспорт Modulel из текущей книги
    Filename = ThisWorkbook.Path & "\Ntempmodxxx.bas"
    ThisWorkbook.VBProject.VBComponents("Module1").Export Filename

    Set VBP = ThisWorkbook.VBProject
    On Error GoTo ErrHandle
    With VBP.VBComponents
        .Remove VBP.VBComponents("Module1")
        .Import Filename
    End With
    ' Удаление временного файла
    Kill Filename
    MsgBox "Модуль успешно заменен.", vblnformation
    Exit Sub
ErrHandle:
    ' Ошибка?
    MsgBox "ОШИБКА. Невозможно заменить модуль.", vbCritical
End Sub