Project 2010でExcel 2016 VBAを実行しているときに 'オートメーションエラーライブラリが登録されていません'

Question

何も動作しませんが何も動作しませんでした。

これは私のコードの先頭である：

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 

それはエクセル2013と下に適切に動作して取得するのに十分だが、私はエクセル2016（Office365）に変更しなければならなかったので、このエラーは、すべて見せ始め

実行時エラー「-2147319779（8002801d）」：私は仕事をカウントしようとしたとき、私はこのケースでは、プロジェクトのオブジェクトを使用する時登録されていない

オートメーションエラーライブラリ。

私はすでに、私は、ライブラリの登録を解除し、登録し、古いキーのレジストリクリーニングのようなインターネット上で見つけ後半プロジェクトオブジェクトを結合し、はるかにすべてを試みました。

誰もがまだこの解決策を発見していませんか？

Answer 1

これはしばらくしていましたが、最終的にこれの回避策を見つけることができました。私は、メインポスト、遅延バインディング波平の作業に言ったように

が、いくつかのテストの後、私はちょうど後半ビングにコード上の他のすべてのオブジェクトを持っていたし、適切な環境このよう

との関連付けを強制します：

Dim appProj As Object 
Dim Resp As Variant 

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