Excel için RealTimeData sunucusu oluşturma

Özet

Microsoft Excel, verileri gerçek zamanlı olarak almak amacıyla Bileşen Nesne Modeli (COM) Otomasyon sunucusunu çağırmanıza olanak tanıyan rtd adlı yeni bir çalışma sayfası işlevi sağlar. Bu makalede, Excel'in RTD işleviyle kullanılacak bir RealTimeData Sunucusu oluşturmak için Visual Basic'in nasıl kullanılacağı açıklanmaktadır.

Daha Fazla Bilgi

RTD çalışma sayfası işlevinin söz dizimi aşağıdaki gibidir:

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

İlk bağımsız değişken olan ProgID, RealTimeData sunucusunun Programlı Tanımlayıcısını (ProgID) temsil eder. Sunucu bağımsız değişkeni, RealTimeData sunucusunun çalıştırıldığı makinenin adını gösterir; Bu bağımsız değişken null dize olabilir veya RealTimeData sunucusu yerel olarak çalıştırılacaksa atlanabilir. Kalan bağımsız değişkenler yalnızca RealTimeData sunucusuna gönderilecek parametreleri temsil eder; bu parametrelerin her benzersiz bileşimi, ilişkili "konu kimliği" olan bir "konu" öğesini temsil eder. Parametreler büyük/küçük harfe duyarlıdır. Örneğin, aşağıda RTD sunucusuna yapılan ve üç ayrı konu kimliğiyle sonuçlanan çağrılar gösterilmektedir:

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

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

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

BIR COM Otomasyonu Sunucusunun Excel'in RTD işleviyle kullanılacak bir RealTimeData Sunucusu olması için IRTDServer arabirimini uygulaması gerekir. Sunucunun tüm IRTDServer yöntemlerini uygulaması gerekir:

• Sunucu Başlangıcı: Excel sunucu için ilk RTD konusunu istediğinde çağrılır. ServerStart, başarıda 1 ve hata durumunda negatif bir değer veya 0 döndürmelidir. ServerStart yönteminin ilk parametresi, RealTimeData sunucusunun RealTimeData sunucusundan güncelleştirmeleri ne zaman toplaması gerektiğini Excel'e bildirmek için kullandığı bir geri çağırma nesnesidir.

• ServerTerminate: Excel artık RealTimeData sunucusundan RTD konularını gerektirmediğinde çağrılır.

• ConnectData: Excel, RealTimeData sunucusundan yeni bir RTD konusu istediğinde çağrılır.

• DisconnectData: Excel artık belirli bir konu gerektirmediğinden çağrılır.

• HeartBeat: RealTimeData sunucusundaki güncelleştirmeler Excel'e en son bildirildiğinden bu yana belirli bir aralık geçtiyse Excel tarafından çağrılır.

• RefreshData: Excel konularda yenileme istediğinde çağrılır. RefreshData, sunucu Excel'e güncelleştirmelerin var olduğunu bildirir ve her konunun konu kimliği ve değeriyle birlikte güncelleştirilecek konuların sayısını döndürür.

Örnek Bir RealTimeData Sunucusu Oluşturma

Aşağıdaki örnekte, Microsoft Excel 2002 ile bir RealTimeData sunucusu oluşturma ve kullanma işlemleri gösterilmektedir. Bu sunucu, çalışma sayfasında her 10 saniyede bir güncelleştirilen bir sayaç sağlar. Sunucu en fazla iki konu dizesi kabul eder. İlk konu dizesi AAA, BBB ve CCC olabilir; diğer konu dizeleri geçersiz kabul edilir ve sunucu #VALUE! rtd işlevine geçin. İkinci dize, dönüş değerinin nasıl artırıldığını gösteren sayısal bir değerdir. İkinci dize atlanırsa, artım değeri varsayılan olarak 1 olur. İkinci dize sayısal değilse, sunucu #NUM! rtd işlevine geçin.

1. Visual Basic'te yeni bir ActiveX DLL projesi başlatın.

2. Proje menüsünde Başvurular'a tıklayın, Excel sürümünüz için Nesne Kitaplığı'nı seçin ve ardından Tamam'a tıklayın. Örneğin, aşağıdakilerden birini seçin:

   • Microsoft Office Excel 2007 için Microsoft Excel 12.0 Nesne Kitaplığı'yı seçin.
   • Microsoft Office Excel 2003 için Microsoft Excel 11.0 Nesne Kitaplığı'yı seçin.
   • Microsoft Excel 2002 için Microsoft Excel 10.0 Nesne Kitaplığı'yı seçin.

3. Proje menüsünde Project1 Özellikleri'ne tıklayın. Proje Adı'nı ExcelRTD olarak değiştirin ve tamam'a tıklayın.

4. Class1 sınıf modülünün Name özelliğini RTDFunctions olarak değiştirin. RTDFunctions'a aşağıdaki kodu ekleyin:

   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. Proje menüsünde Sınıf Modülü Ekle'ye tıklayın. Sınıf modülü Adı özelliğini Konu olarak değiştirin ve Instancing özelliğini Özel olarak değiştirin. Konu sınıfı modülüne aşağıdaki kodu ekleyin:

   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. Proje menüsünde Modül Ekle'yi seçin. Yeni modüle aşağıdaki kodu ekleyin:

   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. Dosya menüsünde, bileşeni oluşturmak için ExcelRTD.dll Oluştur'a tıklayın.

Excel'de RTD Sunucusunu kullanma

1. Microsoft Excel'de yeni bir çalışma kitabı başlatın.

2. A1 hücresine aşağıdaki formülü girin ve ENTER tuşuna basın:

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

   İlk dönüş değeri "AAA: 0"dır. Beş saniye sonra değer "AAA: 10" olarak güncelleştirilir ve 10 saniye sonra değer "AAA:15" olarak güncelleştirilir ve bu şekilde devam eder.

3. A2 hücresine aşağıdaki formülü girin ve ENTER tuşuna basın:

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

   İlk dönüş değeri "BBB: 0"dır. Beş saniyede bir hücre değeri 3 artar.

4. A3 hücresine aşağıdaki formülü girin ve ENTER tuşuna basın:

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

   A1 hücresinde kullanılan "konu" aynı olduğundan ilk dönüş değeri A1 hücresinin içeriğiyle eşleşir.

5. A4 hücresine aşağıdaki formülü girin ve Enter tuşuna basın: =RTD("ExcelRTD.RTDFunctions","AAA", 10)

   İlk dönüş değeri "AAA: 0"dır. Beş saniyede bir hücre değeri diğer hücreler gibi artar. Sunucuya geçirilen parametrelerin birleşimi farklı olduğundan, dönüş değerinin A1 veya A3 hücresinin içeriğiyle eşleşmediğini unutmayın.

Bu çizimde RTD sunucusu derlendi ve Excel bileşenin çalışma zamanı sürümünü kullanıyordu. Hata ayıklama amacıyla RTD sunucuları Visual Basic IDE'den çalıştırılabilir.

Hata ayıklama modunda çalıştırmak için:

1. Microsoft Excel'den çıkın ve Visual Basic'te projeye geçin.
2. Bileşeni başlatmak için F5 tuşuna basın. Proje Özellikleri iletişim kutusu görüntülenirse, Bileşenlerin oluşturulmasını bekle seçeneğini varsayılan olarak seçmek için Tamam'a tıklayın.
3. Visual Basic'te Anında penceresinin görüntülendiğinden emin olun. Hücrelere formül girerken ve hücreler güncelleştirildikçe, hangi eylemlerin farklı olayları tetiklediğini görmek için Visual Basic'teki Anında penceresinin içeriğini inceleyin.

Excel RTD sunucunuzun abonesi olsa da, artık bir konuya gerek kalmadığında DisconnectData olayını tetikler (örneğin, bir hücredeki RTD formülünü sildiğinizde veya temizlediğinizde). Ancak Excel, çalışma kitabı kapatıldığında veya Excel kapandığında RTD sunucusu için her konuda DisconnectData'yı çağırmaz; Bunun yerine, Excel yalnızca ServerTerminate'i çağırır. Bir RTD sunucusu oluştururken, ServerTerminate olayı tetiklendiğinde konuların veya diğer nesnelerin gerekli temizleme işlemleri için kod oluşturmanız gerekir.

(c) Microsoft Corporation 2001, Tüm Hakları Saklıdır. Lori B. Turner, Microsoft Corporation'ın katkıları.