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

[sasha_prof]

Сообщение от 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

Чтото он вроде проходит процес но не заменяет модуль в книге ИНФОРМАТОРА

[sasha_prof]

Помогите плиз... Очень нужно

[sasha_prof]

Вставил пример. Он только вот чтото сам у себя заменяет а в ИНФОРМАТОРЕ нет.

[sasha_prof]

Спасибо Всем кто помогал. Уже разобрался.