Jak vytvořit server RealTimeData pro Excel
Souhrn
Microsoft Excel poskytuje novou funkci listu RTD, která umožňuje volat automatizační server modelu COM (Component Object Model) za účelem načtení dat v reálném čase. Tento článek popisuje, jak pomocí jazyka Visual Basic vytvořit RealTimeData Server pro použití s funkcí RTD aplikace Excel.
Další informace
Funkce listu RTD má následující syntaxi:
=RTD(ProgID,Server,String1,[String2],...)
První argument ProgID představuje programový identifikátor (ProgID) serveru RealTimeData. Argument Server označuje název počítače, na kterém je spuštěn server RealTimeData; Tento argument může být řetězec null nebo je vynechán, pokud má být server RealTimeData spuštěn místně. Zbývající argumenty jednoduše představují parametry pro odeslání na server RealTimeData; každá jedinečná kombinace těchto parametrů představuje jedno téma, které má přidružené ID tématu. V parametrech se rozlišují malá a velká písmena. Následující příklad znázorňuje volání serveru RTD, která by vedla ke třem samostatným ID tématu:
=RTD("ExcelRTD.RTDFunctions",,"AAA", "10")
=RTD("ExcelRTD.RTDFunctions",,"AAA", "5")
=RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
Aby server COM Automation Server mohl být serverem RealTimeData pro použití s funkcí RTD aplikace Excel, musí implementovat rozhraní IRTDServer. Server musí implementovat všechny metody IRTDServer:
ServerStart: Volá se, když Excel požaduje první téma RTD pro server. ServerStart by měl při úspěchu vrátit hodnotu 1 a zápornou hodnotu nebo hodnotu 0 při selhání. Prvním parametrem metody ServerStart je objekt zpětného volání, který server RealTimeData používá k upozornění aplikace Excel, když by měl shromažďovat aktualizace ze serveru RealTimeData.
ServerTerminate: Volá se, když Excel už nevyžaduje témata RTD ze serveru RealTimeData.
ConnectData: Volá se vždy, když Excel požádá o nové téma RTD ze serveru RealTimeData.
DisconnectData: Volá se vždy, když Excel už nevyžaduje konkrétní téma.
HeartBeat: Aplikace Excel volá, pokud daný interval uplynul od posledního oznámení o aktualizacích ze serveru RealTimeData.
RefreshData: Volá se, když Excel žádá o aktualizaci témat. RefreshData se volá poté, co server upozorní Excel, že existují aktualizace, a vrátí počet témat, která se mají aktualizovat, spolu s ID a hodnotou tématu pro každé téma.
Vytvoření ukázkového serveru RealTimeData
Následující ukázka ukazuje, jak vytvořit a používat server RealTimeData s Microsoft Excelem 2002. Tento server jednoduše poskytuje čítač, který se na listu aktualizuje každých 10 sekund. Server přijímá až dva řetězce témat. První řetězec tématu může být AAA, BBB a CCC; jakýkoli jiný řetězec tématu je považován za neplatný a server vrátí #VALUE! funkce RTD. Druhý řetězec je číselná hodnota, která představuje způsob zvýšení návratové hodnoty. Pokud druhý řetězec vynecháte, výchozí hodnota přírůstku je 1. Pokud druhý řetězec není číselný, server vrátí #NUM! funkce RTD.
Spusťte nový projekt ActiveX DLL v jazyce Visual Basic.
V nabídce Projekt klepněte na příkaz Odkazy, vyberte knihovnu objektů pro vaši verzi aplikace Excel a klepněte na tlačítko OK. Vyberte například jednu z následujících možností:
- V aplikaci Microsoft Office Excel 2007 vyberte Microsoft Excel 12.0 Object Library.
- V aplikaci Microsoft Office Excel 2003 vyberte Microsoft Excel 11.0 Object Library.
- V aplikaci Microsoft Excel 2002 vyberte Microsoft Excel 10.0 Object Library.
V nabídce Projekt klikněte na Vlastnosti Project1. Změňte název projektu na ExcelRTD a potom klikněte na OK.
Změňte vlastnost Name modulu třídy Class1 na RTDFunctions. Do funkce RTDFunctions přidejte následující kód:
Option Explicit Implements IRtdServer 'Interface allows Excel to contact this RealTimeData server Private m_colTopics As Collection Private Function IRtdServer_ConnectData(ByVal TopicID As Long, Strings() As Variant, GetNewValues As Boolean) As Variant '** ConnectData is called whenever a new RTD topic is requested 'Create a new topic class with the given TopicId and string and add it to the 'm_colTopics collection Dim oTopic As New Topic m_colTopics.Add oTopic, CStr(TopicID) oTopic.TopicID = TopicID oTopic.TopicString = Strings(0) If UBound(Strings) >= 1 Then oTopic.SetIncrement Strings(1) 'For this example, the initial value for a new topic is always 0 IRtdServer_ConnectData = oTopic.TopicValue Debug.Print "ConnectData", TopicID End Function Private Sub IRtdServer_DisconnectData(ByVal TopicID As Long) '** DisconnectData is called whenever a specific topic is not longer needed 'Remove the topic from the collection m_colTopics.Remove CStr(TopicID) Debug.Print "DisconnectData", TopicID End Sub Private Function IRtdServer_Heartbeat() As Long '** Called by Excel if the heartbeat interval has elapsed since the last time ' Excel was called with UpdateNotify. Debug.Print "HeartBeat" End Function Private Function IRtdServer_RefreshData(TopicCount As Long) As Variant() '** Called when Excel is requesting a refresh on topics. RefreshData will be called ' after an UpdateNotify has been issued by the server. This event should: ' - supply a value for TopicCount (number of topics to update) ' - return a two dimensional variant array containing the topic ids and the ' new values of each. Dim oTopic As Topic, n As Integer ReDim aUpdates(0 To 1, 0 To m_colTopics.Count - 1) As Variant For Each oTopic In m_colTopics oTopic.Update aUpdates(0, n) = oTopic.TopicID aUpdates(1, n) = oTopic.TopicValue n = n + 1 Next TopicCount = m_colTopics.Count IRtdServer_RefreshData = aUpdates Debug.Print "RefreshData", TopicCount & " topics updated" End Function Private Function IRtdServer_ServerStart(ByVal CallbackObject As Excel.IRTDUpdateEvent) As Long '** ServerStart is called when the first RTD topic is requested Set oCallBack = CallbackObject Set m_colTopics = New Collection g_TimerID = SetTimer(0, 0, TIMER_INTERVAL, AddressOf TimerCallback) If g_TimerID > 0 Then IRtdServer_ServerStart = 1 'Any value <1 indicates failure. Debug.Print "ServerStart" End Function Private Sub IRtdServer_ServerTerminate() '** ServerTerminate is called when no more topics are needed by Excel. KillTimer 0, g_TimerID '** Cleanup any remaining topics. This is done here since ' IRtdServer_DisconnectData is only called if a topic is disconnected ' while the book is open. Items left in the collection when we terminate ' are those topics left running when the workbook was closed. Dim oTopic As Topic For Each oTopic In m_colTopics m_colTopics.Remove CStr(oTopic.TopicID) Set oTopic = Nothing Next Debug.Print "ServerTerminate" End Sub
V nabídce Projekt klepněte na tlačítko Přidat modul třídy. Změňte vlastnost Název modulu třídy na Topic a změňte vlastnost Instanceng na Private. Do modulu třídy Topic přidejte následující kód:
Option Explicit Private m_TopicID As Long Private m_TopicString As String Private m_Value As Variant Private m_IncrementVal As Long Private Sub Class_Initialize() m_Value = 0 m_IncrementVal = 1 End Sub Friend Property Let TopicID(ID As Long) m_TopicID = ID End Property Friend Property Get TopicID() As Long TopicID = m_TopicID End Property Friend Property Let TopicString(s As String) s = UCase(s) If s = "AAA" Or s = "BBB" Or s = "CCC" Then m_TopicString = s Else m_Value = CVErr(xlErrValue) 'Return #VALUE if not one of the listed topics End If End Property Friend Sub Update() On Error Resume Next 'the next operation will fail if m_Value is an error (like #NUM or #VALUE) m_Value = m_Value + m_IncrementVal End Sub Friend Sub SetIncrement(v As Variant) On Error Resume Next m_IncrementVal = CLng(v) If Err <> 0 Then m_Value = CVErr(xlErrNum) 'Return #NUM if Increment value is not numeric End If End Sub Friend Property Get TopicValue() As Variant If Not (IsError(m_Value)) Then TopicValue = m_TopicString & ": " & m_Value Else TopicValue = m_Value End If End Property
V nabídce Projekt vyberte Přidat modul. Do nového modulu přidejte následující kód:
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, _ ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Public Const TIMER_INTERVAL = 5000 Public oCallBack As Excel.IRTDUpdateEvent Public g_TimerID As Long Public Sub TimerCallback(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) oCallBack.UpdateNotify End Sub
V nabídce Soubor klikněte na Vytvořit ExcelRTD.dll a sestavte komponentu.
Použití serveru RTD v Excelu
Spusťte nový sešit v aplikaci Microsoft Excel.
Do buňky A1 zadejte následující vzorec a stiskněte klávesu ENTER:
=RTD("ExcelRTD.RTDFunctions";"AAA"; 5)
Počáteční návratová hodnota je AAA: 0. Po pěti sekundách se hodnota aktualizuje na "AAA: 10" a po 10 sekundách se hodnota aktualizuje na "AAA:15" a tak dále.
Do buňky A2 zadejte následující vzorec a stiskněte ENTER:
=RTD("ExcelRTD.RTDFunctions";"BBB"; 3)
Počáteční návratová hodnota je BBB: 0. Každých pět sekund se hodnota buňky zvýší o 3.
Do buňky A3 zadejte následující vzorec a stiskněte enter:
=RTD("ExcelRTD.RTDFunctions";"AAA"; 5)
Počáteční návratová hodnota odpovídá obsahu buňky A1, protože se jedná o stejné téma, které se používá v buňce A1.
Do buňky A4 zadejte následující vzorec a stiskněte Enter: =RTD("ExcelRTD.RTDFunctions";"AAA"; 10)
Počáteční návratová hodnota je AAA: 0. Každých pět sekund se hodnota buňky zvyšuje stejně jako ostatní buňky. Všimněte si, že vrácená hodnota neodpovídá obsahu buňky A1 nebo A3, protože kombinace parametrů předaných serveru se liší.
Pro tento obrázek byl server RTD zkompilován a Aplikace Excel používala verzi komponenty za běhu. Pro účely ladění je možné servery RTD spouštět z integrovaného vývojového prostředí (IDE) jazyka Visual Basic.
Spuštění v režimu ladění:
- Ukončete aplikaci Microsoft Excel a přepněte na projekt v jazyce Visual Basic.
- Stisknutím klávesy F5 spusťte komponentu. Pokud se zobrazí dialogové okno Vlastnosti projektu, kliknutím na tlačítko OK vyberte výchozí možnost Počkat na vytvoření komponent.
- Ujistěte se, že je zobrazeno okno Immediate v jazyce Visual Basic. Při zadávání vzorců do buněk a při aktualizaci buněk zkontrolujte obsah okna Immediate v jazyce Visual Basic a zjistěte, které akce aktivují různé události.
Poznámka
Týkající se události DisconnectData
I když je Excel odběratelem serveru RTD, aktivuje událost DisconnectData, když už nepotřebuje téma (například když odstraníte nebo vymažete vzorec RTD v buňce). Excel však nevolá DisconnectData u každého tématu pro server RTD při zavření sešitu nebo ukončení aplikace Excel; Místo toho aplikace Excel volá pouze ServerTerminate. Při vytváření serveru RTD byste měli kód pro všechny nezbytné vyčištění témat nebo jiných objektů při spuštění události ServerTerminate.
(c) Microsoft Corporation 2001, Všechna práva vyhrazena. Příspěvky lori B. Turner, Microsoft Corporation.