Jak vytvořit RealTimeData server pro Excel

Překlady článku Překlady článku
ID článku: 285339 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Aplikace Microsoft Excel poskytuje nové funkce listu RTD, které umožňuje volání komponent modelu COM) Automation server z důvodu načítání dat v reálném čase. Tento článek popisuje, jak vytvořit RealTimeData Server pro použití s RTD funkce aplikace Excel pomocí jazyka.

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. Server argument označuje název počítače, na kterém je spuštěn server RealTimeData; tohoto argumentu může být nulový řetězec nebo vynechán, pokud je server RealTimeData spustit místně. Zbývající argumenty jednoduše představují parametry odeslat na server RealTimeData; každý jedinečnou kombinaci těchto parametrů představuje jedno "téma, id tématu"které má přidružené"." Parametry jsou rozlišována malá a velká písmena. Následující ilustruje například volání server RTD, které by výsledkem tři samostatné téma ID:
= RTD("ExcelRTD.RTDFunctions",,"AAA", "10")

= RTD("ExcelRTD.RTDFunctions",,"AAA", "5")

= RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
V pořadí pro automatizaci server COM být RealTimeData Server pro použití s RTD funkce aplikace Excel jej musí implementovat rozhraní IRTDServer. Server musí implementovat všechny metody IRTDServer:

ServerStart
Nazývá se při první téma RTD serveru požadavků Excel. ServerStart by vrátit 1 na úspěch a záporné hodnoty nebo 0 selhání. První parametr metody ServerStart je objekt zpětného volání, které server RealTimeData používá upozorní Excel jej měli získával aktualizace z RealTimeData serveru.
ServerTerminate
Volána při Excel již vyžaduje témata RTD ze serveru RealTimeData.
ConnectData
Nazývá se při každém požadavku Excel nové téma RTD ze serveru RealTimeData.
DisconnectData
Nazývá se při každém Excel již vyžaduje určité téma.
Prezenční signál
Pokud daný interval uplynul od poslední aktualizace ze serveru RealTimeData byl upozorněn Excel nazývá aplikací Excel.
RefreshData
Volána při Excel žádá aktualizaci na témata. RefreshData se nazývá po server upozorní Excel existují aktualizace a vrátí počet témata aktualizovat spolu s id tématu a hodnota pro každé téma.

Vytvořit server ukázkové RealTimeData

Následující příklad znázorňuje způsob vytvoření a použití RealTimeData serveru s aplikací Microsoft Excel 2002. Tento server poskytuje jednoduše Čítač aktualizovány každých 10 sekund na listu. Přijme server až dva řetězce téma. První řetězec tématu může být ?ady AAA BBB a CCC; jiný řetězec tématu považovány za neplatné a server vrátí # hodnota! Chcete-li funkci RTD. Druhý řetězec je číselná hodnota, která představuje způsob vrácená hodnota zvýšena. Pokud je druhý řetězec vynechán, výchozí hodnota přírůstku 1. Pokud není druhý řetězec číselné, vrátí server # NUM! Chcete-li funkci RTD.
  1. Spuštění nového projektu ActiveX DLL v jazyka.
  2. V nabídce projekt klepněte na příkaz odkazy, vyberte objektová knihovna pro verzi aplikace Excel a potom klepněte na tlačítko OK. Například vyberte jednu z následujících:
    • Microsoft Office Excel 2007 vyberte 12.0 objektové knihovny Microsoft Excel.
    • Microsoft Office Excel 2003 vyberte Microsoft Excel 11.0 Object Library.
    • Aplikaci Excel 2002 vyberte Objektové knihovny Microsoft Excel 10.0.
  3. V nabídce projekt klepněte na příkaz Project1 vlastnosti. Změnit Název projektuExcelRTD a potom klepněte na tlačítko OK.
  4. Změňte vlastnost název modulu třídy Class1RTDFunctions. Přidejte následující kód RTDFunctions:
    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
    
    					
  5. V nabídce projekt klepněte na tlačítko Přidat modul třídy. Změnit modul třídy vlastnost názevtématu a změňte vlastnost InstancingPrivate. Modul třídy téma 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
    					
  6. V nabídce projekt vyberte Přidat modul. Nový modul 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
    					
  7. V nabídce soubor klepněte na tlačítko Vytvořit ExcelRTD.dll sestavení komponenty.

Použít RTD server v aplikaci Excel

  1. Spusťte nový sešit v aplikaci Microsoft Excel.
  2. Zadejte následující vzorec v buňce A1 a stiskněte klávesu ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Počáteční vrácená hodnota je „ ?ady AAA: 0 ". Po pěti sekundách aktualizuje hodnotu na „ ?ady AAA: 10 "a po 10 sekundách aktualizuje hodnotu"AAA:15"a tak dále.

  3. V buňce A2 zadejte následující vzorec a stiskněte klávesu ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"BBB", 3)
    Počáteční vrácená hodnota je „ BBB: 0 ". Hodnota buňky zvýší o 3 každých pět sekund.

  4. V buňce A3 zadejte následující vzorec a stiskněte klávesu ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Počáteční vrácená hodnota odpovídá obsah buňky A1, protože to je stejné "téma" používaný A1.

  5. V buňce A4 zadejte následující vzorec a stiskněte klávesu ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 10)
    Počáteční vrácená hodnota je „ ?ady AAA: 0. "každých pět sekund přírůstcích hodnotu buňky, stejně jako jiné buňky. Poznámka: Vrácená hodnota protože je různé kombinace parametrů předané serveru neodpovídá obsahu buňky A1 nebo A3.
Tento obrázek kompilován RTD server a Excel byl pomocí verze komponenty run-time. Pro účely RTD ladění servery lze spustit z jazyka IDE.

Spuštění v režimu ladění:
  1. Ukončit aplikaci Microsoft Excel a přepněte do projektu v jazyka.
  2. Stisknutím klávesy F5 spuštění komponenty. Pokud se zobrazí v dialogovém okně Vlastnosti projektu, klepněte na tlačítko OK vyberte možnost výchozí čekat součásti být vytvořen.
  3. Přesvědčte se, zda je zobrazen proměnných v jazyka. Při zadávání vzorce v buňkách a jako buňky jsou aktualizovány prozkoumejte obsah proměnných v jazyka viz akce, které jsou upozorněním různé události.
Poznámka týkající se událostí DisconnectData

Zatímco je aplikace Excel subscriber server RTD, aktivuje událost DisconnectData Pokud již nepotřebuje téma (například při odstranění nebo zrušte vzorec RTD v buňce). Však Excel nevyvolá DisconnectData na každé téma pro RTD server při zavření sešitu nebo aplikace Excel ukončena; místo toho Excel volá pouze ServerTerminate. Při vytváření RTD server jste měli kód pro všechny nezbytné čištění témata nebo jiné objekty při události ServerTerminate.

(c) Microsoft Corporation 2001 všechny rezervované práv. Příspěvky Lenka B. Turner, Microsoft Corporation.

Odkazy

Další informace získáte v následujícím článku znalostní báze Microsoft Knowledge Base:
284883RTD Server nelze odeslat oznámení Update více instancí Excel

Vlastnosti

ID článku: 285339 - Poslední aktualizace: 29. března 2007 - Revize: 5.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Klíčová slova: 
kbmt kbexpertisebeginner kbautomation kbhowto KB285339 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:285339

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com