Excel'in RealTimeData sunucu oluşturma hakkında

Makale çevirileri Makale çevirileri
Makale numarası: 285339 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Özet

Microsoft Excel, yeni bir çalışma sayfası işlevi, gerçek zamanlı verileri almak amacıyla, bir Bileşen Nesne Modeli (COM) Otomasyon sunucusu aramanızı sağlayan RTD sağlar. Bu makalede, Visual Basic Excel'in RTD işlevi ile kullanılacak bir RealTimeData sunucusu oluşturmak için nasıl kullanılacağı açıklanır.

Daha fazla bilgi

RTD çalışma sayfası işlevinin sözdizimi aşağıdaki gibidir:
RTD(ProgID,Server,String1,[String2],...) =
Ilk bağımsız değişken, Progıd, RealTimeData sunucu programsal tanımlayıcısını (Progıd) temsil eder. Sunucu değişkeni RealTimeData sunucu çalıştırın; bu bağımsız değişkeni boş bir dize olabilir makine adını gösterir ya da RealTimeData sunucu yerel olarak çalıştırmak için ise atlanmış. Diğer bağımsız değişkenleri yalnızca RealTimeData sunucuya göndermek için parametreleri temsil eder; bu parametreler benzersiz her birleşimi bir "konu, konu kimliği"bir ilişkili olan"." temsil eder. Parametreleri büyük/küçük harf duyarlıdır. Örneğin, aşağıdaki üç ayrı konu kimliği neden RTD sunucuya çağrı gösterilmektedir:
= RTD("ExcelRTD.RTDFunctions",,"AAA", "10")

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

= RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
Excel'in RTD işlevi ile kullanılacak bir RealTimeData sunucusu olarak COM Otomasyon sunucusu sırayla IRTDServer arabirimini uygulamalıdır. Sunucu IRTDServer yöntemlerini uygulamalısınız:

ServerStart
Excel, ilk RTD konu sunucu istediğinde çağrıldı. Başarı ve negatif değer veya başarısızlık 0, 1 ServerStart döndürmelidir. Ilk parametre ServerStart yönteminin RealTimeData sunucusunun, Excel, güncelleştirmelerin RealTimeData toplamak bildirmek için kullandığı bir geri arama nesnesidir sunucu.
ServerTerminate
Excel artık RTD konuları RealTimeData sunucudan gerektirdiğinde çağrıldı.
ConnectData
Excel, yeni RTD konu RealTimeData sunucudan istekte bulunduğunda çağrıldı.
DisconnectData
Excel, belirli bir konuyu artık gerekli olduğunda çağrıldı.
Sinyal
Belirli bir aralığı, Excel RealTimeData sunucusundan güncelleştirmeleri haberdar son kez başlatıldıktan geçti, Excel tarafından çağrıldı.
RefreshData
Excel, konular hakkında bir yenileme isterken çağrıldı. Güncelleştirmeleri bulunan Excel sunucu bildirir sonra RefreshData denir ve konuları, konu kimliği ve her konu için değer birlikte güncelleştirme sayımını geri döndürür.

Bir <a0>Örnek</a0> RealTimeData sunucusu oluşturma

Aşağıdaki örnek, Microsoft Excel 2002 ile RealTimeData bir sunucu oluşturmak gösterilmiştir. Bu sunucu, yalnızca çalışma sayfasındaki her 10 saniyede güncelleştirilen bir sayaç da sağlar. Sunucu, iki konuda dizeler kabul eder. Ilk konu dizesini AAA BBB ve CCC olabilir; başka bir konu dizesini geçersiz kabul edilir ve sunucu işlevi # DEğER! RTD işlevi için. Ikinci dizenin nasıl dönüş değeri artan gösteren sayısal bir değerdir. Ikinci dize girilmediği takdirde, artış değeri varsayılan olarak 1 olarak ayarlanır. Ikinci dize sayısal değilse, sunucu fonksiyonu # sayı! RTD işlevi için.
  1. Yeni bir proje ActiveX DLL DOSYASı, Visual Basic'te başlatın.
  2. Proje menüsünde Başvurular ' ı tıklatın, Excel sürümünüz için <a1>Nesne</a1> Kitaplığı'nı seçin ve Tamam ' ı tıklatın. Örneğin, aşağıdakilerden birini seçin:
    • Microsoft Office Excel 2007 için Microsoft Excel 12.0 Nesne Kitaplığı seçin.
    • Microsoft Office Excel 2003 için Microsoft Excel'in 11.0 Nesne Kitaplığı seçin.
    • Microsoft Excel 2002, Microsoft Excel 10.0 Nesne Kitaplığı seçin.
  3. Proje menüsünde Project1 Properties ' i tıklatın. Proje adı için ExcelRTD değiştirin ve Tamam ' ı tıklatın.
  4. Name özelliği sınıf modülünün Class1RTDFunctions için değiştirin. RTDFunctions için 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 Add sınıf modülü ' nü tıklatın. Konu için sınıf modülünün Name özelliğini değiştirin ve Instancing özelliği, özel olarak değiştirin. Konu sınıf modülü için 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 Add Module ' ı 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 yap ' ı tıklatın.

Excel'deki RTD sunucu kullanın

  1. Yeni bir çalışma kitabını Microsoft Excel'in başlatın.
  2. A1 hücresine aşağıdaki formülü girin ve sonra da ENTER tuşuna basın:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Dönüş değeri ilk "AAA: 0". Değer güncelleştirmeleri beş saniye sonra "AAA: 10" ve "AAA:15" vb. için değeri 10 saniye sonra güncelleştirir.

  3. A2 hücresindeki, aşağıdaki formülü girin ve ENTER tuşuna basın:
    = RTD("ExcelRTD.RTDFunctions",,"BBB", 3)
    Dönüş değeri ilk "BBB: 0". Her beş saniyede bir hücre değeri 3 artırır.

  4. A3 hücresindeki, aşağıdaki formülü girin ve ENTER tuşuna basın:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Ilk dönüş değeri, çünkü bu "a1'de kullanılan aynı konu" A1 hücresinin içeriğini eşleşir.

  5. Hücre (A4), aşağıdaki formülü girin ve ENTER tuşuna basın:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 10)
    Dönüş değeri ilk "AAA: 0." gibi diğer hücrelere her beş saniye hücre değerini artırır. Sunucuya geçilen parametreler birleşimi farklı olduğu için dönen değer A1 veya A3 hücresinin içeriğini eşleşmiyor unutmayın.
Bu çizimde, Excel'in çalışma bileşenin bir sürümünü kullanan ve RTD sunucu derlendi. Hata ayıklama amacıyla, RTD sunucular Visual Basic IDE çalıştırabilirsiniz.

Hata ayıklama modunda çalıştırmak için <a0></a0>:
  1. Microsoft Excel'den çıkın ve Visual Basic projesinde geçin.
  2. Bileşeni'ni başlatmak için F5 tuşuna basın. Proje Özellikleri</a1> iletişim kutusu belirirse, varsayılan seçeneği Aranmayı Bekle be created bileşenleri seçmek için Tamam ' ı tıklatın.
  3. Visual Basic'te bir komut penceresi görüntülendiğinden emin olun. Hücrelerde formüller girmek gibi ve hücreleri güncelleştirilir, uyarının harekete geçirilmesine hangi eylemleri farklı olaylara karşılık görmek için Visual Basic'te bir komut penceresi içeriğini inceleyin.
Not ilgi DisconnectData olayı

Bu, Excel RTD sunucunuza abone olsa da, artık (örneğin, sildiğinizde veya bir hücrede RTD formülünü temizleyin) bir konuyu gerektiğinde DisconnectData olay tetikler. Ancak, Excel'in DisconnectData her konu üzerinde RTD sunucu için çalışma kitabı kapalı veya Excel'den çıkar çağırmaz; bunun yerine, Excel, yalnızca ServerTerminate çağırır. Bir RTD sunucu oluştururken ServerTerminate olayı, tüm gerekli temizleme için konuları veya diğer nesnelerin kodu.

(c) Microsoft Corporation 2001, tüm hakları saklıdır. Katkıyı Gamze B Turner, Microsoft Corporation.

Referanslar

Ek bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
284883RTD Server güncelleştirmesi bildirimleri için birden çok Excel örnekleri gönderemiyor

Özellikler

Makale numarası: 285339 - Last Review: 29 Mart 2007 Perşembe - Gözden geçirme: 5.1
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Anahtar Kelimeler: 
kbmt kbexpertisebeginner kbautomation kbhowto KB285339 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:285339

Geri Bildirim Ver

 

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