Мне было поручено написать надстройку автоматизации Excel в режиме реального времени на С#, используя RtdServer для работы. Я сильно полагался на знания, которые я обнаружил в Stack Overflow. Я решил выразить свою благодарность, написав, как документировать, что связывает все, что я узнал. Kenny Kerr Excel RTD-серверы: минимальная реализация С# помогли мне начать работу. Особенно я нашел комментарии Майка Розенблюма и Govert.
Как создать надстройку автоматизации Excel в режиме реального времени на С# с помощью RtdServer?
Ответ 1
(В качестве альтернативы описанному ниже подходу вам следует использовать Excel-DNA. Excel-DNA позволяет создавать бесплатную регистрацию RTD-сервер. Для регистрации COM необходимы административные привилегии, которые могут привести к головным болям установки. При этом код ниже работает нормально.)
Чтобы создать надстройку автоматизации Excel в режиме реального времени на С# с помощью RtdServer:
1) Создайте проект библиотеки классов С# в Visual Studio и введите следующее:
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) Build Solution (F6)
5) Запустите Excel. Перейдите в раздел "Параметры Excel" > "Надстройки" > "Управление надстройками надстройки" > "Автоматизация" и выберите "StackOverflow.RtdServer"
6) Введите "= RTD (" StackOverflow.RtdServer.ProgId ", 200)" в ячейку.
7) Перекрестите пальцы и надейтесь, что это сработает!
Ответ 2
Вызов 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
Ответ 3
Следуя предыдущим двум ответам для сервера RTD, я работал у меня. Однако я столкнулся с проблемой, когда на машине x64, использующей Excel x64. В моем случае, пока я не переключил "целевую платформу" проекта на x64, Excel всегда показывал # N/A.