RealTimeData-palvelimen luominen Excelille

Artikkeli
06/20/2023
Koskee seuraavia::

Microsoft Excel

Yhteenveto

Microsoft Excel tarjoaa uuden RTD-laskentataulukkofunktion, jonka avulla voit kutsua COM (Component Object Model) Automation -palvelinta tietojen reaaliaikaista noutamista varten. Tässä artikkelissa kuvataan, miten Voit luoda Visual Basicin avulla RealTimeData-palvelimen käytettäväksi Excelin RTD-funktion kanssa.

Lisätietoja

RTD-laskentataulukkofunktiolla on seuraava syntaksi:

=RTD(ProgID,Server,String1,[String2],...)

Ensimmäinen argumentti, ProgID, edustaa RealTimeData-palvelimen ohjelmallista tunnistetta (ProgID). Server-argumentti ilmaisee sen tietokoneen nimen, jossa RealTimeData-palvelin suoritetaan. tämä argumentti voi olla tyhjäarvoinen merkkijono tai jätetty pois, jos RealTimeData-palvelin suoritetaan paikallisesti. Jäljellä olevat argumentit edustavat vain parametreja, jotka lähetetään RealTimeData-palvelimeen. jokainen näiden parametrien ainutlaatuinen yhdistelmä edustaa yhtä aihetta, johon liittyy aiheen tunnus. Parametrien kirjainkoko on merkitsevä. Esimerkiksi seuraava havainnollistaa RTD-palvelimeen kutsuja, jotka johtaisivat kolmeen erilliseen aihetunnukseen:

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

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

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

Jotta COM Automation Server voi olla RealTimeData-palvelin Excelin RTD-funktion kanssa käytettäväksi, sen on toteutettava IRTDServer-liittymä. Palvelimen on toteutettava kaikki IRTDServer-menetelmät:

ServerStart: Kutsutaan, kun Excel pyytää ensimmäistä TTK-aihetta palvelimelle. ServerStart-kohteen tulisi palauttaa 1 onnistumisesta ja negatiivinen arvo tai 0 virheilmoituksen jälkeen. ServerStart-menetelmän ensimmäinen parametri on takaisinkutsuobjekti, jota RealTimeData-palvelin käyttää ilmoittaakseen Excelille, kun sen tulisi kerätä päivityksiä RealTimeData-palvelimesta.
ServerTerminate: Kutsutaan, kun Excel ei enää edellytä RTD-aiheita RealTimeData-palvelimelta.
ConnectData: Kutsutaan aina, kun Excel pyytää uutta RTD-aihetta RealTimeData-palvelimelta.
DisconnectData: Kutsutaan, kun Excel ei enää vaadi tiettyä aihetta.
HeartBeat: Excel kutsui, jos tietty aikaväli on kulunut siitä, kun Excelille ilmoitettiin päivityksistä RealTimeData-palvelimesta edellisen kerran.
RefreshData: Kutsutaan, kun Excel pyytää päivitystä aiheista. RefreshData kutsutaan sen jälkeen, kun palvelin ilmoittaa Excelille, että päivityksiä on olemassa, ja se palauttaa päivitettävien aiheiden määrän sekä kunkin aiheen tunnuksen ja arvon.

Luo RealTimeData-mallipalvelin

Seuraavassa esimerkissä näytetään, miten voit luoda RealTimeData-palvelimen ja käyttää sitä Microsoft Excel 2002:n kanssa. Tämä palvelin tarjoaa laskurin, joka päivitetään 10 sekunnin välein laskentataulukossa. Palvelin hyväksyy enintään kaksi aihemerkkijonoa. Ensimmäinen aihemerkkijono voivat olla AAA, BBB ja CCC; muita aihemerkkijonoja pidetään virheellisinä, ja palvelin palauttaa #VALUE! RTD-funktioon. Toinen merkkijono on numeerinen arvo, joka edustaa, miten palautusarvoa tulisi kasvattaa. Jos toinen merkkijono jätetään pois, lisäysarvon oletusarvo on 1. Jos toinen merkkijono ei ole numeerinen, palvelin palauttaa #NUM! RTD-funktioon.

Aloita uusi ActiveX DLL -projekti Visual Basicissa.
Valitse Projekti-valikostaViittaukset, valitse Excel-versiosi objektikirjasto ja valitse sitten OK. Valitse esimerkiksi jokin seuraavista:
- Valitse Microsoft Office Excel 2007:ssä Microsoft Excel 12.0 -objektikirjasto.
- Valitse Microsoft Office Excel 2003:ssa Microsoft Excel 11.0 -objektikirjasto.
- Valitse Microsoft Excel 2002:ssa Microsoft Excel 10.0 -objektikirjasto.
Valitse Projekti-valikosta Projektin1 ominaisuudet. Muuta projektin nimeksi ExcelRTD ja valitse sitten OK.

Muuta luokkamoduulin Class1 Nimi-ominaisuudeksi RTDFunctions. Lisää seuraava koodi RTDFunctionsiin:

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

Valitse Projekti-valikosta Lisää luokkamoduuli. Muuta luokkamoduulin Nimi-ominaisuudeksi Aihe ja muuta Instancing-ominaisuudeksi Yksityinen. Lisää seuraava koodi Aihe-luokkamoduuliin:

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

Valitse Projekti-valikosta Lisää moduuli. Lisää seuraava koodi uuteen moduuliin:

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

Muodosta osa valitsemalla Tiedosto-valikosta Tee ExcelRTD.dll.

RTD-palvelimen käyttäminen Excelissä

Aloita uusi työkirja Microsoft Excelissä.
Kirjoita soluun A1 seuraava kaava ja paina ENTER-näppäintä:

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

Alkuperäinen palautusarvo on "AAA: 0". Viiden sekunnin kuluttua arvo päivittyy arvoon "AAA: 10" ja 10 sekunnin kuluttua arvo päivittyy arvoon "AAA:15" ja niin edelleen.
Kirjoita soluun A2 seuraava kaava ja paina ENTER-näppäintä:

=RTD("ExcelRTD.RTDFunctions",,"BBB", 3)

Alkuperäinen palautusarvo on "BBB: 0". Solun arvo kasvaa 3:lla joka viides sekunti.
Kirjoita soluun A3 seuraava kaava ja paina ENTER-näppäintä:

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

Alkuperäinen palautusarvo vastaa solun A1 sisältöä, koska tämä on sama aihe, jota käytetään A1:ssä.
Kirjoita soluun A4 seuraava kaava ja paina Enter-näppäintä: =RTD("ExcelRTD.RTDFunctions",,"AAA", 10)

Alkuperäinen palautusarvo on AAA: 0. Solun arvo kasvaa viiden sekunnin välein muiden solujen tavoin. Huomaa, että palautusarvo ei vastaa solun A1 tai A3 sisältöä, koska palvelimelle välitettyjen parametrien yhdistelmä on eri.

Tässä kuvassa RTD-palvelin käännettiin ja Excel käytti osan suoritusaikaversiota. Virheenkorjausta varten RTD-palvelimet voidaan suorittaa Visual Basic IDE:stä.

Suorita virheenkorjaustilassa:

Sulje Microsoft Excel ja siirry projektiin Visual Basicissa.
Käynnistä osa painamalla F5-näppäintä. Jos Projektin ominaisuudet -valintaikkuna tulee näkyviin, valitse OK, jos haluat valita oletusasetuksen Odota osien luomista.
Varmista, että Visual Basicin Välitön-ikkuna tulee näkyviin. Kun kirjoitat kaavoja soluihin ja kun solut päivitetään, tarkastele Visual Basicin Välitön-ikkunan sisältöä nähdäksesi, mitkä toiminnot käynnistävät eri tapahtumat.

Huomautus

Liittyy DisconnectData-tapahtumaan

Vaikka Excel on RTD-palvelimen tilaaja, se käynnistää DisconnectData-tapahtuman, kun se ei enää tarvitse aihetta (kun esimerkiksi poistat solun RTD-kaavan tai tyhjennät sen). Excel ei kuitenkaan kutsu DisconnectData-toimintoa kussakin rtd-palvelimen aiheessa, kun työkirja suljetaan tai Excel lopettaa. Sen sijaan Excel kutsuu vain parametria ServerTerminate. Kun luot RTD-palvelinta, koodaa aiheiden tai muiden objektien tarpeelliset puhdistukset, kun ServerTerminate-tapahtuma käynnistyy.

RealTimeData-palvelimen luominen Excelille

Yhteenveto

Lisätietoja

Luo RealTimeData-mallipalvelin

RTD-palvelimen käyttäminen Excelissä

Lisäresursseja