«Библиотека ошибки автоматизации не зарегистрирована» при запуске Excel 2016 VBA с Project 2010

Я только что пробовал все, но ничего не работает.

Это начало моего кода:

 Public Sub Connect()

    Dim appProj As MSProject.Application
    Dim Resp As Variant

       Set appProj = CreateObject("Msproject.Application")
       Set Cronograma = appProj.ActiveProject

       With ThisWorkbook.Sheets("Project")
          If UCase(Trim(Cronograma.name)) = UCase(Trim(.Cells(4, 2))) Then
             Resp = MsgBox("Plan OK" & vbNewLine & "Starting line: " & Cronograma.Tasks.Count + 1 & vbNewLine _
                             & "Continue?", vbQuestion + vbYesNo + vbDefaultButton1, "Generator")
             If Resp = vbYes Then
                Status 1
                Call Main
             End If
          Else
             'Nothing
          End If
       End With

 End Sub

Этого достаточно, чтобы заставить его работать правильно с Excel 2013 и ниже, но, поскольку мне пришлось перейти на Excel 2016 (Office365), эта ошибка начала отображаться каждый раз, когда я использую объекты проекта, в этом случае, когда я пытаюсь подсчитать задачи:

Ошибка выполнения "-2147319779 (8002801d)":

Ошибка автоматизации Библиотека не зарегистрирована.

Я уже пробовал все, что нашел в Интернете, например, очистку реестра от старых ключей, отмену регистрации и регистрацию библиотек, позднее связывание объекта проекта и многое другое.

Кто-нибудь еще нашел решение для этого?


excel vba registry ms-project
person Matheus Trigo    schedule 29.07.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Прошло некоторое время, но мне наконец удалось найти обходной путь для этого.

Как я сказал в основном посте, позднее связывание не работало, но после некоторых тестов мне просто пришлось поздно связывать все остальные объекты в коде и принудительно связывать с правильной средой.

Как это:

Dim appProj As Object
Dim Resp As Variant

   Set appProj = CreateObject("Msproject.Application.10")
   Set Cronograma = appProj.ActiveProject
person Matheus Trigo    schedule 22.09.2016