Excel VBA установить надстройку

Question

Я использую этот код для установки надстройки. Но, похоже, это не позволяет. Я получаю это сообщение об ошибке:

Ошибка выполнения 1004: невозможно установить установленное свойство класса надстройки.

Мой код:

Sub installatie_Click()

    Dim AI As Excel.AddIn
    Set AI = Application.AddIns.Add(Filename:="J:\Planning\Sjablonen\Updates\versieA.xlam")

    Application.AddIns("versieA").Installed = True
End Sub

Answer 1

Я всегда использую, чтобы мои добавления могли самостоятельно устанавливать. Пожалуйста, попробуйте этот код (в событии addin Workbook_Open его модуля ThisWorkbook): возможно, у вашего файла проблема ... Вы должны установить его заголовок (BuiltinDocumentProperties(1)). Вручную щелкните правой кнопкой мыши файл надстройки и измените (только при добавленном закрытом) или программно (ThisWorkbook.BuiltinDocumentProperties(1) = "Whatever"), но без пробелов.

Private Sub Workbook_Open()
  Dim Name As String, tmp As Boolean, n As Boolean, Merk As String
   Name = ThisWorkbook.BuiltinDocumentProperties(1)
   On Error Resume Next
   tmp = AddIns(Name).Installed
    If Err.number <> 0 Then
      Err.Clear: On Error GoTo 0
         If Workbooks.Count = 0 Then n = True
             If n Then
                 Workbooks.Add
                 Merk = ActiveWorkbook.Name
             End If
             AddIns.Add Filename:=ThisWorkbook.FullName
             AddIns(Name).Installed = True
             If n Then Workbooks(Merk).Close False
    End If
    On Error GoTo 0
End Sub