web-dev-qa-db-ja.com

RtdServerを使用してC＃でリアルタイムのExcel自動化アドインを作成するにはどうすればよいですか？

私は、仕事にRtdServerを使用して、C＃でリアルタイムのExcel自動化アドインを作成するという任務を負いました。私はStackOverflowで出会った知識に大きく依存していました。私は、学んだことすべてを結び付ける方法を文書化することによって、感謝の意を表すことにしました。 Kenny Kerrの Excel RTDサーバー：最小限のC＃実装 記事は私が始めるのに役立ちました。 Mike Rosenblum と Govert によるコメントが特に役に立ちました。

c#vstoexcel-addinsrtdexcel-udf
25
Frank

（以下で説明するアプローチの代わりに、 Excel-DNA の使用を検討する必要があります。Excel-DNAを使用すると、登録不要のRTDサーバーを構築できます。COM登録には管理者権限が必要であり、インストールの問題が発生する可能性があります。そうは言っても、以下のコードは正常に機能します。）

RtdServerを使用してC＃でリアルタイムのExcel自動化アドインを作成するには：

1）Visual StudioでC＃クラスライブラリプロジェクトを作成し、次のように入力します。

using System;
using System.Threading;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;

namespace StackOverflow
{
    public class Countdown
    {
        public int CurrentValue { get; set; }
    }

    [Guid("EBD9B4A9-3E17-45F0-A1C9-E134043923D3")]
    [ProgId("StackOverflow.RtdServer.ProgId")]
    public class RtdServer : IRtdServer
    {
        private readonly Dictionary<int, Countdown> _topics = new Dictionary<int, Countdown>();
        private Timer _timer;

        public int ServerStart(IRTDUpdateEvent rtdUpdateEvent)
        {
            _timer = new Timer(delegate { rtdUpdateEvent.UpdateNotify(); }, null, TimeSpan.Zero, TimeSpan.FromSeconds(5));
            return 1;
        }

        public object ConnectData(int topicId, ref Array strings, ref bool getNewValues)
        {
            var start = Convert.ToInt32(strings.GetValue(0).ToString());
            getNewValues = true;

            _topics[topicId] = new Countdown { CurrentValue = start };

            return start;
        }

        public Array RefreshData(ref int topicCount)
        {
            var data = new object[2, _topics.Count];
            var index = 0;

            foreach (var entry in _topics)
            {
                --entry.Value.CurrentValue;
                data[0, index] = entry.Key;
                data[1, index] = entry.Value.CurrentValue;
                ++index;
            }

            topicCount = _topics.Count;

            return data;
        }

        public void DisconnectData(int topicId)
        {
            _topics.Remove(topicId);
        }

        public int Heartbeat() { return 1; }

        public void ServerTerminate() { _timer.Dispose(); }

        [ComRegisterFunctionAttribute]
        public static void RegisterFunction(Type t)
        {
            Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(@"CLSID\{" + t.GUID.ToString().ToUpper() + @"}\Programmable");
            var key = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(@"CLSID\{" + t.GUID.ToString().ToUpper() + @"}\InprocServer32", true);
            if (key != null)
                key.SetValue("", System.Environment.SystemDirectory + @"\mscoree.dll", Microsoft.Win32.RegistryValueKind.String);
        }

        [ComUnregisterFunctionAttribute]
        public static void UnregisterFunction(Type t)
        {
            Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey(@"CLSID\{" + t.GUID.ToString().ToUpper() + @"}\Programmable");
        }
    }
}

2）プロジェクトを右クリックし、[追加]> [新しいアイテム...]> [インストーラークラス]を選択します。コードビューに切り替えて、次のように入力します。

using System.Collections;
using System.ComponentModel;
using System.Diagnostics;
using System.Runtime.InteropServices;

namespace StackOverflow
{
    [RunInstaller(true)]
    public partial class RtdServerInstaller : System.Configuration.Install.Installer
    {
        public RtdServerInstaller()
        {
            InitializeComponent();
        }

        [System.Security.Permissions.SecurityPermission(System.Security.Permissions.SecurityAction.Demand)]
        public override void Commit(IDictionary savedState)
        {
            base.Commit(savedState);

            var registrationServices = new RegistrationServices();
            if (registrationServices.RegisterAssembly(GetType().Assembly, AssemblyRegistrationFlags.SetCodeBase))
                Trace.TraceInformation("Types registered successfully");
            else
                Trace.TraceError("Unable to register types");
        }

        [System.Security.Permissions.SecurityPermission(System.Security.Permissions.SecurityAction.Demand)]
        public override void Install(IDictionary stateSaver)
        {
            base.Install(stateSaver);

            var registrationServices = new RegistrationServices();
            if (registrationServices.RegisterAssembly(GetType().Assembly, AssemblyRegistrationFlags.SetCodeBase))
                Trace.TraceInformation("Types registered successfully");
            else
                Trace.TraceError("Unable to register types");
        }

        public override void Uninstall(IDictionary savedState)
        {
            var registrationServices = new RegistrationServices();
            if (registrationServices.UnregisterAssembly(GetType().Assembly))
                Trace.TraceInformation("Types unregistered successfully");
            else
                Trace.TraceError("Unable to unregister types");

            base.Uninstall(savedState);
        }
    }
}

3）プロジェクトのプロパティを右クリックし、以下をチェックします。アプリケーション>アセンブリ情報...>アセンブリをCOMで表示およびビルド> COM相互運用機能に登録

3.1）プロジェクトを右クリックします[参照を追加...]> [。NET]タブ> Microsoft.Office.Interop.Excel

4）ソリューションの構築（F6）

5）Excelを実行します。 [Excelオプション]> [アドイン]> [Excelアドインの管理]> [自動化]に移動し、[StackOverflow.RtdServer]を選択します

6）セルに「= RTD（ "StackOverflow.RtdServer.ProgId" , 200）」と入力します。

7）指を交差させて、うまくいくことを願っています！

33
Frank

タイマースレッドからUpdateNotifyを呼び出すと、最終的に奇妙なエラーやExcelからの切断が発生します。

UpdateNotify（）メソッドは、ServerStart（）を呼び出すのと同じスレッドからのみ呼び出す必要があります。 RTDServerヘルプには記載されていませんが、COMの制限です。

修正は簡単です。 DispatcherSynchronizationContextを使用して、ServerStartを呼び出すスレッドをキャプチャし、それを使用してUpdateNotifyへの呼び出しをディスパッチします。

public class RtdServer : IRtdServer
{
    private IRTDUpdateEvent _rtdUpdateEvent;
    private SynchronizationContext synchronizationContext;

    public int ServerStart( IRTDUpdateEvent rtdUpdateEvent )
    {
        this._rtdUpdateEvent = rtdUpdateEvent;
        synchronizationContext = new DispatcherSynchronizationContext();
        _timer = new Timer(delegate { PostUpdateNotify(); }, null, TimeSpan.Zero, TimeSpan.FromSeconds(5));
        return 1;
    }


    // Notify Excel of updated results
    private void PostUpdateNotify()
    {
        // Must only call rtdUpdateEvent.UpdateNotify() from the thread that calls ServerStart.
        // Use synchronizationContext which captures the thread dispatcher.
        synchronizationContext.Post( delegate(object state) { _rtdUpdateEvent.UpdateNotify(); }, null);
    }

    // etc
} // end of class
6
dlaudams

RTDサーバーの前の2つの答えに従うと、私はうまくいきました。ただし、Excelx64を実行しているx64マシンで問題が発生しました。私の場合、プロジェクトの「ターゲットプラットフォーム」をx64に切り替えるまで、Excelは常に＃N/Aを表示していました。

1
AnonymousUser