Jak utworzyć serwer RealTimeData dla programu Excel

Tłumaczenia artykułów Tłumaczenia artykułów
Numer ID artykułu: 285339 - Zobacz jakich produktów dotyczą zawarte w tym artykule porady.
Rozwiń wszystko | Zwiń wszystko

Streszczenie

Program Microsoft Excel oferuje nową funkcję arkusza BRT, który pozwala wywoływać serwer automatyzacji modelu COM (Component Object) w celu pobierania danych czasu rzeczywistego. W tym artykule opisano sposób używania Języka Visual Basic do utworzenia serwera RealTimeData do użytku z funkcji RTD w programie Excel.

Więcej informacji

Funkcja arkusza BRT ma następującą składnię:
= BRT)ProgID, serwer, ciąg1,[Ciąg2]...)
Pierwszy argument Identyfikator programu, reprezentuje identyfikatorów programowych (ProgID) z Serwer RealTimeData. W Serwer argument wskazuje nazwę komputera, na którym RealTimeData serwera jest wykonywane; Ten argument może być ciąg null lub jest pominięty, jeśli RealTimeData serwer jest uruchamiany lokalnie. Pozostała po prostu argumenty przedstawiania parametrów do wysyłania do serwera RealTimeData; każdym unikatowym Kombinacja tych parametrów reprezentuje jeden "temat", który ma skojarzone "identyfikator tematu". Parametry uwzględniana jest wielkość liter. Na przykład następujący ilustruje wywołania serwera BRT w trzech oddzielnych tematu identyfikatory:
= RTD("ExcelRTD.RTDFunctions",,"AAA", "10")

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

= RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
Serwer automatyzacji COM serwera RealTimeData do użytku z funkcji RTD w programie Excel musi implementować IRTDServer interfejs. Serwer musi implementować wszystkie metody IRTDServer:

ServerStart
Wywoływane, gdy program Excel żąda pierwszy temat BRT dla serwera. ServerStart powinien zwrócić na 0 lub 1 na sukces, a wartość ujemna błąd. Pierwszy parametr ServerStart Metoda jest obiekt wywołania zwrotnego, który korzysta z serwera RealTimeData Powiadom programu Excel, gdy go należy zebrać aktualizacje z RealTimeData serwer.
ServerTerminate
Wywoływane, gdy program Excel nie wymaga już BRT tematy z serwera RealTimeData.
ConnectData
Wywołana w każdym przypadku, gdy program Excel żąda od serwera RealTimeData nowy temat BRT.
DisconnectData
Wywołana w każdym przypadku, gdy program Excel nie wymaga już określonego tematu.
Puls
Wywołana przez program Microsoft Excel, jeśli określonym interwale upłynął od czasu ostatniego Excel został powiadomiony o aktualizacje z serwera RealTimeData.
RefreshData
Wywoływane, gdy program Excel żąda odświeżenia na tematy. RefreshData wywołana zostaje serwera powiadamia programu Excel, że istnieją aktualizacje i Zwraca liczbę tematów, aby zaktualizować wraz z identyfikatora tematu i wartości dla każdego tematu.

Tworzenie próbki serwera RealTimeData

Poniższy przykład ilustruje sposób tworzenia i używania RealTimeData serwera z programem Microsoft Excel 2002. Ten serwer po prostu zawiera Licznik, który jest aktualizowany co 10 sekund w arkuszu. Serwer akceptuje w górę do dwóch ciągów tematu. Pierwszy ciąg tematu mogą być AAA, BBB i CCC; wszelkie inne ciągu znaków tematu jest uznawany za nieprawidłowy i serwer zwraca wartość błędu # ARG! Aby Funkcja RTD. Drugi ciąg jest wartością numeryczną, która reprezentuje jak Wartość zwracana powinna zwiększany. W przypadku pominięcia drugiego ciągu Zwiększ wartość domyślna wartość 1. Jeśli drugi ciąg nie jest liczbą, serwer Zwraca wartość błędu # liczba! do funkcji RTD.
  1. Rozpocznij nowy projekt ActiveX DLL w programie Visual Basic.
  2. Na Projekt menu, kliknij przycisk Odwołania, wybierz bibliotekę obiektów dla danej wersji programu Excel, a następnie kliknij przycisk OK. Na przykład wybierz jedną z następujących czynności:
    • Wybierz dla programu Microsoft Office Excel 2007 Program Microsoft Excel 12.0 Object Library..
    • Wybierz program Microsoft Office Excel 2003 Program Microsoft Excel 11.0 Object Library..
    • Program Microsoft Excel 2002 Wybierz Program Microsoft Excel 10.0 Object Library..
  3. Na Projekt menu, kliknij przycisk Właściwości project1. Zmiana Nazwa projektu Aby ExcelRTD, a następnie kliknij przycisk OK.
  4. Zmiana Nazwa Właściwość moduł klasy Moduł Class1 Aby RTDFunctions. Dodaj następujący kod do 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. Na Projekt menu, kliknij przycisk Dodać moduł klasy. Zmień moduł klasy Nazwa Właściwość Temat i zmień Tworzenie wystąpienia Właściwość Prywatne. Dodaj następujący kod do Temat Moduł klasy:
    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. Na Projekt menu wybierz Dodawanie modułu. Dodaj następujący kod do nowego modułu:
    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. Na Plik menu, kliknij przycisk Tworzenie ExcelRTD.dll Aby utworzyć składnik.

Użyj serwera RTD w programie Excel

  1. Rozpocznij nowy skoroszyt w programie Microsoft Excel.
  2. Wprowadź następującą formułę w komórce A1, a następnie naciśnij klawisz Wprowadź klucz:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Początkowa wartość zwracana jest "AAA: 0". Po pięciu sekundach. aktualizacje wartości "AAA: 10" i po 10 sekundach aktualizacje wartości "aaa:15" i tak dalej.

  3. W komórce A2 wpisz następującą formułę, a następnie naciśnij klawisz ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"BBB", 3)
    Początkowa wartość zwracana jest "BBB: 0". Co pięć sekund komórki Przyrost wartości 3.

  4. W komórce A3 wpisz następującą formułę, a następnie naciśnij klawisz ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Początkowa wartość zwracana odpowiada zawartości komórki A1, ponieważ jest to ten sam "temat", który jest używany w A1.

  5. W komórce A4 wprowadź następującą formułę, a następnie naciśnij klawisz Enter:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 10)
    Początkowa wartość zwracana jest "AAA: 0." co pięć sekund komórki skoki wartość jak do innych komórek. Należy zauważyć, że nie jest zwracana wartość dopasować zawartość komórki A1 i A3, ponieważ kombinacja parametrów przekazany do serwera jest inny.
Na tej ilustracji serwera BRT został skompilowany i programu Excel używał wersji czasu uruchomienia składnika. Do debugowania BRT serwery można uruchomić z programu Visual Basic IDE.

Aby uruchomić w trybie debugowania:
  1. Zamknij program Microsoft Excel i przełączyć się do projektu programu Visual Podstawowe.
  2. Naciśnij klawisz F5, aby uruchomić składnika. Jeśli Właściwości projektu zostanie wyświetlone okno dialogowe, kliknij przycisk OK Aby wybrać domyślną opcją Poczekaj, aż składników do utworzenia.
  3. Upewnij się, że jest bezpośrednim w języku Visual Basic wyświetlane. Wprowadzanie formuł w komórkach i jak komórki są aktualizowane, Sprawdź zawartość okna Immediate w języku Visual Basic, aby zobaczyć, które akcje są wyzwolenie różnych zdarzeń.
Uwagi dotyczące zdarzeń DisconnectData

Gdy program Excel jest subskrybenta z serwerem BRT go Wyzwalacze DisconnectData zdarzenie, kiedy nie są już potrzebne tematu (na przykład, gdy użytkownik usuwanie lub czyszczenie formuły RTD w komórce). Jednak program Excel nie wywołuje DisconnectData dla każdego tematu dla serwera BRT, podczas zamykania skoroszytu lub Zamyka program Excel; Zamiast tego programu Excel tylko wywołania ServerTerminate. Podczas tworzenia serwera BRT powinny kodu dla każdego niezbędne oczyszczania tematy lub innych obiektów, gdy ServerTerminate uruchamiany, zdarzenie.

(c) Microsoft Corporation 2001, wszystkie prawa Zarezerwowane. Składki Maria B. Turner, Microsoft Corporation.

Materiały referencyjne

Aby uzyskać dodatkowe informacje kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
284883BRT, serwer nie wysyła powiadomienia aktualizacji do wielu wystąpień programu Excel

Właściwości

Numer ID artykułu: 285339 - Ostatnia weryfikacja: 22 czerwca 2011 - Weryfikacja: 2.0
Informacje zawarte w tym artykule dotyczą:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Słowa kluczowe: 
kbexpertisebeginner kbautomation kbhowto kbmt KB285339 KbMtpl
Przetłumaczone maszynowo
WAŻNE: Ten artykuł nie został przetłumaczony przez człowieka, tylko przez oprogramowanie do tłumaczenia maszynowego firmy Microsoft. Firma Microsoft oferuje zarówno artykuły tłumaczone przez ludzi, jak i artykuły tłumaczone maszynowo, dzięki czemu każdy użytkownik może uzyskać dostęp do całej zawartości bazy wiedzy Knowledge Base we własnym języku. Prosimy jednak pamiętać, że artykuły przetłumaczone maszynowo nie zawsze są doskonałe. Mogą zawierać błędy słownictwa, składni i gramatyki, przypominające błędy robione przez osoby, dla których język użytkownika nie jest językiem ojczystym. Firma Microsoft nie odpowiada za wszelkie nieścisłości, błędy lub szkody spowodowane nieprawidłowym tłumaczeniem zawartości oraz za wykorzystanie tej zawartości przez klientów. Oprogramowanie do tłumaczenia maszynowego jest często aktualizowane przez firmę Microsoft.
Anglojęzyczna wersja tego artykułu to:285339

Przekaż opinię

 

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