Установите Excel COM-надстройку с VBA

Question

Можно ли установить надстройку COM с помощью VBA? Я обнаружил еще один пост, в котором приведены ссылки на решения по установке надстроек не-COM с использованием VBA, но это не работает для надстроек COM. Не то чтобы это имеет значение, но я специально ищу сценарий установки надстройки Inquire COM для Excel 2013.

Вот то, что я знаю, не работает:

Вот код, который я нашел для установки не-COM надстроек:

AddIns("NativeShim.InquireConnector.1").Installed = True

Этот код не работает, потому что я пытаюсь работать с надстройкой COM, а указанная надстройка не существует в этой коллекции.

Это код, который я пробовал с надстройками COM

Dim addin As COMAddIn
Set addin = COMAddIns.Item("NativeShim.InquireConnector.1")
addin.Installed = True

Этот код правильно получает ссылку на надстройку, но при установке Installed в True происходит сбой, поскольку объекты COMAddIn не имеют свойства Installed.

Answer 1

На основе Excel 2010 вам необходимо:

1. Запустите Excel с правами администратора

2. Подключитесь к вашей надстройке вместо настройки .Installed property в этом случае:

   Application.COMAddIns("NativeShim.InquireConnector.1").Connect = True
   

3. настройка .Connect property ложное, очевидно, превратится com add-in выкл.