4

Excel で使用する単純なクラス ライブラリがあります。これが私のクラスの単純化です...

using System;
using System.Runtime.InteropServices;

namespace SimpleLibrary
{
 [ComVisible(true)]
 public interface ISixGenerator
 {
  int Six();
 }

 public class SixGenerator : ISixGenerator
 {
  public int Six() 
  {
   return 6; 
  }
 }
}

Excel 2007 では、マクロを有効にしたブックを作成し、次のコードを含むモジュールを追加します。

Public Function GetSix()
    Dim lib As SimpleLibrary.SixGenerator
    lib = New SimpleLibrary.SixGenerator
    Six = lib.Six
End Function

次に、Excel で関数 GetSix() を呼び出すと、6 が返されます。これは、Excel 2010 64 ビットでは機能しなくなりました。実行時エラー「429」が表示されます: ActiveX コンポーネントはオブジェクトを作成できません。

プラットフォーム ターゲットを任意の CPU ではなく x64 に変更しようとしましたが、[COM 相互運用機能に登録する] オプションをオフにしない限りコードがコンパイルされませんでした。 .

ライブラリを Excel 2010 64 ビットで使用する方法はありますか?

4

1 に答える 1

3

.NET アセンブリの作成方法について詳しく説明していません。ただし、アセンブリを COM に公開するには、いくつかの手順が必要です。

  • 次の属性をコードに追加します。

    using System;
    using System.Runtime.InteropServices;
    
    namespace SimpleLibrary
    {
        [ComVisible(true)]
        [Guid("71F645D0-AA78-4447-BA26-3A2443FDA691")]
        public interface ISixGenerator
        {
            int Six();
        }
    
        [ComVisible(true)]
        [ProgId("SimpleLibrary.SixGenerator")]
        [Guid("8D59E0F6-4AE3-4A6C-A4D9-DFE06EC5A514")]
        [ClassInterface(ClassInterfaceType.AutoDispatch)]
        public class SixGenerator : ISixGenerator
        {
            [DispId(1)]
            public int Six()
            {
                return 6;
            }
        }
    }        
    
  • アセンブリに署名する必要があります ( Project -> Properties... -> Signing、強力なキー ファイルを作成し、ボックスをオンにしてアセンブリに署名します。

  • アセンブリを登録するには、次のコマンドが必要です (すべて 1 行で)。

    C:\Windows\Microsoft.NET\Framework64\v2.0.50727\RegAsm.exe 
                      SimpleLibrary.dll /tlb SimpleLibrary.tlb /codebase
    

    これにより、VBA プロジェクトから参照する必要がある .tlb タイプ ライブラリ ファイルが作成されます (VBA エディターで[ツール] -> [参照] -> [参照... ] を選択)。

  • VBA コードを調整します。

    Public Function GetSix()
        Dim lib As SimpleLibrary.SixGenerator
        Set lib = New SimpleLibrary.SixGenerator
        GetSix = lib.Six
    End Function
    

詳細については、Microsoft のサポート データベースに関する次の記事を参照してください。

Visual Basic 6.0 から Visual Basic .NET または Visual Basic 2005 アセンブリを呼び出す方法

于 2010-04-28T08:43:26.697 に答える