Программно установить надстройку 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 ожидает, что надстройка будет в папке пользователя по умолчанию?