Teď jste offline a čekáte, až se znova připojí internet.

Jak vytvořit RealTimeData server pro Excel

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
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 ExplicitImplements IRtdServer  'Interface allows Excel to contact this RealTimeData serverPrivate 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", TopicIDEnd FunctionPrivate 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", TopicIDEnd SubPrivate 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 FunctionPrivate 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 FunctionPrivate 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 FunctionPrivate 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 ExplicitPrivate m_TopicID As LongPrivate m_TopicString As StringPrivate m_Value As VariantPrivate m_IncrementVal As LongPrivate Sub Class_Initialize()    m_Value = 0    m_IncrementVal = 1End SubFriend Property Let TopicID(ID As Long)    m_TopicID = IDEnd PropertyFriend Property Get TopicID() As Long    TopicID = m_TopicIDEnd PropertyFriend 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 IfEnd PropertyFriend 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_IncrementValEnd SubFriend 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 IfEnd SubFriend Property Get TopicValue() As Variant    If Not (IsError(m_Value)) Then        TopicValue = m_TopicString & ": " & m_Value    Else        TopicValue = m_Value    End IfEnd 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 LongPublic Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As LongPublic Const TIMER_INTERVAL = 5000Public oCallBack As Excel.IRTDUpdateEventPublic g_TimerID As LongPublic Sub TimerCallback(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)    oCallBack.UpdateNotifyEnd 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
XL2007

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 285339 - Poslední kontrola: 03/29/2007 16:44:08 - Revize: 5.1

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Visual Basic 6.0 Professional Edition

  • kbmt kbexpertisebeginner kbautomation kbhowto KB285339 KbMtcs
Váš názor
cript>