Jak vytvořit server RealTimeData pro Excel

Článek
06/20/2023
Platí pro:

Microsoft 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.

Jak vytvořit server RealTimeData pro Excel

Souhrn

Další informace

Vytvoření ukázkového serveru RealTimeData

Použití serveru RTD v Excelu

Další materiály