Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

Excel'in RealTimeData sunucu oluşturma hakkında

Ö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
Ö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 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. 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 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. 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 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. 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
XL2007

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 285339 - Son İnceleme: 03/29/2007 16:44:08 - Düzeltme: 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 KbMttr
Geri bildirim
/html>