Cara membuat server RealTimeData untuk Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 285339 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

RINGKASAN

Microsoft Excel menyediakan fungsi lembar kerja yang baru, RTD, yang memungkinkan Anda untuk panggilan server Otomatisasi Component Object Model (COM) untuk Tujuan dari mengambil data real-time. Artikel ini menjelaskan cara menggunakan Visual Basic untuk membuat RealTimeData Server untuk digunakan dengan Excel RTD fungsi.

INFORMASI LEBIH LANJUT

Fungsi lembar kerja RTD memiliki sintaks berikut:
= RTD)ProgID, Server, String1,[String2]...)
Argumen pertama, ProgID, mewakili pengenal program (ProgID) dari RealTimeData server. The Server argumen menunjukkan nama mesin yang RealTimeData server berjalan; argumen ini dapat menjadi serangkaian nol atau dihilangkan jika RealTimeData server adalah menjalankan lokal. Argumen yang tersisa hanya mewakili parameter untuk mengirim ke RealTimeData server; masing-masing unik kombinasi dari parameter ini merupakan salah satu "topik," yang telah terkait "topik id." Parameter huruf yang benar. Sebagai contoh, berikut menggambarkan panggilan ke server RTD yang akan mengakibatkan tiga topik yang terpisah id:
= RTD("ExcelRTD.RTDFunctions",,"AAA", "10")

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

= RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
Dalam rangka untuk Server otomatisasi COM menjadi RealTimeData Server untuk digunakan dengan Excel RTD fungsi, itu harus menerapkan IRTDServer antarmuka. Server harus melaksanakan semua metode IRTDServer:

ServerStart
Disebut ketika Excel permintaan topik RTD pertama untuk server. ServerStart harus kembali 0 atau 1 pada sukses, dan nilai negatif pada kegagalan. Parameter pertama ServerStart metode adalah objek Panggil balik yang RealTimeData server menggunakan untuk memberitahu Excel ketika itu harus mengumpulkan pembaruan dari RealTimeData server.
ServerTerminate
Disebut ketika Excel tidak lagi memerlukan RTD topik dari RealTimeData server.
ConnectData
Dipanggil setiap kali Excel permintaan topik RTD baru dari RealTimeData server.
DisconnectData
Dipanggil setiap kali Excel tidak lagi memerlukan topik tertentu.
Detak jantung
Disebut oleh Excel jika interval tertentu telah berlalu sejak terakhir kali Excel diberitahu tentang pembaruan dari RealTimeData server.
RefreshData
Disebut ketika Excel adalah meminta refresh pada topik. RefreshData disebut setelah server akan memberitahu Excel yang ada di update, dan kembali hitungan topik untuk memperbarui bersama dengan topik id dan nilai untuk setiap topik.

Membuat sampel RealTimeData Server

Contoh berikut menunjukkan cara membuat dan menggunakan RealTimeData server dengan Microsoft Excel 2002. Server ini hanya menyediakan Counter yang diperbarui setiap 10 detik pada lembar kerja. Server menerima sampai untuk dua topik string. String topik pertama dapat AAA, BBB dan CCC; setiap string topik lain dianggap tidak sah dan server kembali #VALUE! untuk RTD fungsi. Kedua string adalah nilai numerik yang menunjukkan bagaimana mengembalikan nilai harus bertambah. Jika kedua string dihilangkan, peningkatan nilai default untuk 1. Jika kedua string tidak numerik, server kembali #NUM! untuk fungsi RTD.
  1. Memulai sebuah proyek baru ActiveX DLL dalam Visual Basic.
  2. Pada Project menu, klik Referensi, pilih perpustakaan objek untuk versi Excel Anda, dan kemudian klik Oke. Sebagai contoh, pilih salah satu dari berikut ini:
    • Untuk Microsoft Office Excel 2007, pilih Perpustakaan objek Microsoft Excel 12,0.
    • Untuk Microsoft Office Excel 2003, pilih Perpustakaan objek Microsoft Excel 11,0.
    • Microsoft Excel 2002, pilih Perpustakaan objek Microsoft Excel 10,0.
  3. Pada Project menu, klik Project1 properti. Perubahan Nama proyek untuk ExcelRTD, lalu klik Oke.
  4. Perubahan Nama properti modul kelas Class1 untuk RTDFunctions. Tambahkan kode berikut untuk 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. Pada Project menu, klik Menambahkan kelas modul. Mengubah modul kelas Nama properti untuk Topik dan mengubah Percontohan properti untuk Swasta. Tambahkan kode berikut untuk Topik kelas modul:
    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. Pada Project menu, pilih Menambahkan modul. Tambahkan kode berikut untuk modul baru:
    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. Pada Berkas menu, klik Membuat ExcelRTD.dll untuk membangun komponen.

Menggunakan RTD Server di Excel

  1. Mulai buku kerja baru di Microsoft Excel.
  2. Dalam sel A1, masukkan rumus berikut, dan kemudian tekan Masukkan kunci:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Kembali nilai awal adalah "AAA: 0". Setelah lima detik, nilai pembaruan "AAA: 10" dan setelah 10 detik, nilai pembaruan "AAA:15," dan seterusnya.

  3. Dalam sel A2, masukkan rumus berikut, dan tekan ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"BBB", 3)
    Kembali nilai awal adalah "BBB: 0". Setiap lima detik sel nilai secara bertahap oleh 3.

  4. Dalam sel A3, masukkan rumus berikut, dan tekan ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Nilai kembali awal pertandingan isi sel A1 karena ini adalah topik yang sama"" yang digunakan dalam A1.

  5. Dalam sel A4, masukkan rumus berikut, dan tekan Enter:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 10)
    Kembali nilai awal adalah "AAA: 0." setiap lima detik sel nilai secara bertahap sebagai melakukan sel-sel lain. Perhatikan bahwa nilai kembali tidak mencocokkan isi sel A1 atau A3 karena kombinasi parameter dilewatkan ke server berbeda.
Ilustrasi ini, RTD server disusun dan Excel menggunakan versi run-time komponen. Untuk keperluan, RTD debugging Server dapat menjalankan dari IDE Visual Basic.

Untuk menjalankan dalam modus debug:
  1. Berhenti Microsoft Excel dan beralih ke proyek di Visual Dasar.
  2. Tekan F5 untuk memulai komponen. Jika Properti proyek kotak dialog muncul, klik Oke untuk memilih opsi default dari Menunggu untuk komponen akan dibuat.
  3. Pastikan bahwa jendela segera dalam Visual Basic ditampilkan. Seperti yang Anda masukkan rumus dalam sel dan sebagai sel diperbarui, memeriksa isi jendela segera dalam Visual Basic untuk melihat yang tindakan yang memicu peristiwa berbeda.
Catatan mengenai peristiwa DisconnectData

Sementara Excel adalah pelanggan ke RTD server, itu pemicu DisconnectData peristiwa ketika tidak lagi membutuhkan topik (sebagai contoh, ketika Anda Hapus atau Hapus RTD rumus dalam sel). Namun, Excel tidak panggilan DisconnectData pada setiap topik untuk server RTD ketika buku kerja tertutup atau Excel berhenti; Sebaliknya, Excel panggilan hanya ServerTerminate. Ketika Anda membuat sebuah RTD server, Anda harus kode untuk setiap diperlukan pembersihan topik atau objek lain ketika ServerTerminate peristiwa kebakaran.

(c) Microsoft Corporation 2001, semua hak Milik. Kontribusi oleh Lori B. Turner, Microsoft Corporation.

REFERENSI

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
284883RTD Server tidak mengirimkan pemberitahuan Update untuk beberapa contoh Excel

Properti

ID Artikel: 285339 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Kata kunci: 
kbexpertisebeginner kbautomation kbhowto kbmt KB285339 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:285339

Berikan Masukan

 

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