Программно установить надстройку VBA

Я ищу создание макроса, который установит надстройку для пользователя на ленту Excel. Я до:

Private Sub Workbook_Open()

On Error Resume Next
Application.AddIns("Name of Addin").Installed = False
On Error GoTo 0

With Application
    .AddIns.Add "Filepath to addin in shared location", False
    .AddIns("Name of Addin").Installed = True
End With

ThisWorkbook.Close False

End Sub

После запуска макроса надстройка без проблем устанавливается на ленту. Проблема в том, что после закрытия Excel надстройка больше не отображается на ленте.

Похоже, что Excel ожидает, что надстройка будет скопирована в папку C: \ Documents and Settings \ Имя пользователя \ Application Data \ Microsoft \ AddiIns, так как она выдает ошибку, которую не может найти при запуске Excel после закрытия.

Теперь я понимаю, что вторая (ложная) переменная для строки кода ниже в основном говорит о том, что надстройка не должна копироваться в каталог AddIns, а должна оставаться в общей папке.

.AddIns.Add "Filepath to addin in shared location", False

Любые идеи о том, почему Excel ожидает, что надстройка будет в папке пользователя по умолчанию?

Ответы на вопрос(0)

Ваш ответ на вопрос