В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Браузер не поддерживается

Чтобы использовать веб-сайт, обновите браузер.

Обновите браузер до последней версии Internet Explorer

Как создать RealTimeData сервер для Excel

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:285339
Аннотация
В Microsoft Excel имеется новая функция ДРВ, который позволяет вызывать сервер автоматизации модели компонентных объектов (COM) для Цель получения данных в режиме реального времени. В данной статье описывается использование Visual Basic для создания сервера RealTimeData для использования функции ДРВ Excel.
Дополнительная информация
Функция листа ДРВ имеет следующий синтаксис:
= () ДРВКод progID сервера, строка1,[Строка2]...)
Первый аргумент Идентификатор progID, представляющий программный идентификатор (ProgID) Сервер RealTimeData. В Сервер аргумент показывает имя компьютера, на котором Запуск RealTimeData сервера; Этот аргумент может быть пустой строкой или опустить, если сервер RealTimeData — для локального выполнения. Остальные аргументы просто Представляет параметры для отправки на сервер RealTimeData; каждый уникальный сочетание этих параметров представляет собой одну «темы», который имеет соответствующий «Идентификатор раздела». Параметры зависят от регистра. Например следующий иллюстрирует вызовов сервера ДРВ, который был бы три отдельных раздела идентификаторы:
= RTD("ExcelRTD.RTDFunctions",,"AAA", "10")

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

= RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
Сервер автоматизации COM должен быть сервером RealTimeData для использования функции ДРВ в Excel, необходимо реализовать IRTDServer интерфейс. Сервер должен реализовывать все методы IRTDServer:

ServerStart
Вызывается, когда Excel запрашивает в первом разделе ДРВ для сервера. ServerStart должен вернуть 0 или 1 в случае успеха и отрицательное значение на Произошла ошибка. Первый параметр ServerStart в противном случае объект обратного вызова, используемый сервером RealTimeData для Уведомите Excel, он должен собирать обновлений из RealTimeData сервер.
ServerTerminate
Вызывается, когда Excel больше не требует ДРВ разделы с сервера RealTimeData.
ConnectData
Вызывается, если Excel запрашивает новый раздел ДРВ с сервера RealTimeData.
DisconnectData
Вызывается каждый раз, когда Microsoft Excel, больше не требует конкретной теме.
Пульс
Вызываемую Excel, если данный интервал с момента последнего Excel была уведомления об обновлениях с сервера RealTimeData.
RefreshData
Вызывается, когда Excel запрашивает обновление по темам. RefreshData вызывается после сервер уведомляет Microsoft Excel, имеются обновления, и Возвращает количество разделов для обновления вместе с идентификатором раздела и значения для каждого раздела.

Создание образца RealTimeData сервера

Следующий пример демонстрирует создание и использование Сервер RealTimeData с Microsoft Excel 2002. Этот сервер просто предоставляет счетчик, который обновляется каждые 10 секунд на рабочем листе. Сервер принимает вверх для двух строк для раздела. Первая строка раздела может быть AAA BBB и CCC; Любой другие строки раздела считается недопустимым, и сервер возвращает значение ошибки # ЗНАЧ! для Функции ДРВ. Вторая строка — это числовое значение, представляющее как Возвращаемое значение должно увеличиваться. Если указан второй строки значение приращения по умолчанию-1. Если вторая строка не является числовым, сервер Возвращает # число! функции ДРВ.
  1. Начать новый проект ActiveX DLL в Visual Basic.
  2. На Проект меню, нажмите кнопку Ссылки, выберите библиотеку объектов для вашей версии Microsoft Excel и нажмите кнопку ОК. Например выберите один из следующих:
    • Выберите для Microsoft Office Excel 2007 Библиотека объектов Microsoft Excel 12.0.
    • Выберите для Microsoft Office Excel 2003 Библиотека объектов Microsoft Excel 11.0.
    • Выберите для Microsoft Excel 2002 Библиотека объектов Microsoft Excel 10.0.
  3. На Проект меню, нажмите кнопку Свойства Project1. Изменение Название проекта Кому ExcelRTD, а затем нажмите кнопку ОК.
  4. Изменение Имя свойства модуля класса Class1 Кому RTDFunctions. Добавьте следующий код для RTDFunctions:
    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. На Проект меню, нажмите кнопку Добавить модуль класса. Изменить модуль класса Имя Свойство Раздел и изменить Создание экземпляров Свойство Закрытый. Добавьте следующий код для Раздел модуль класса:
    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. На Проект Выберите пункт Добавить модуль. Добавьте следующий код в новый модуль:
    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. На Файл меню, нажмите кнопку Сделать ExcelRTD.dll для создания компонента.

Использование сервера ДРВ в Excel

  1. Откройте новую книгу в Microsoft Excel.
  2. В ячейке A1 введите следующую формулу, а затем нажмите клавишу Введите ключ:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Начальный возвращает значение «ааа: 0 ". Через пять секунд значение обновления "AAA: 10" и 10 секунд, значение обновления для "aaa:15" и т. д.

  3. В ячейке A2 введите следующую формулу и нажмите клавишу ВВОД:
    = RTD("ExcelRTD.RTDFunctions",,"BBB", 3)
    Начальный возвращает значение "BBB: 0". Каждые пять секунд ячейки значение с шагом 3.

  4. В ячейке A3 введите следующую формулу и нажмите клавишу ВВОД:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    Начальный возвращаемое значение соответствует содержимое ячейки A1, поскольку Это же «раздел», используемый в A1.

  5. В ячейке A4 введите следующую формулу и нажмите клавишу ВВОД:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 10)
    Начальный возвращает значение "AAA: 0." через каждые пять секунд ячейки значение приращения, как у других ячеек. Обратите внимание, что возвращаемое значение не соответствует содержимое ячейки A1 и A3, так как сочетание параметров передано на другой сервер.
На этом рисунке сервер ДРВ был скомпилирован и Excel используется версия среды выполнения компонента. Для отладки, ДРВ серверы могут выполняться в интегрированной среде разработки Visual Basic.

Для запуска в режиме отладки:
  1. Выйти из Microsoft Excel и переключитесь в проект Visual Основные.
  2. Нажмите клавишу F5, чтобы запустить компонент. Если Свойства проекта Появится диалоговое окно, нажмите кнопку ОК Выберите параметр по умолчанию Подождите, пока компоненты для создания.
  3. Убедитесь, что окно интерпретации в Visual Basic отображается. По мере ввода формул в ячейки и ячейки обновляются, Проверьте содержимое окна интерпретации Visual Basic, чтобы узнать, какой действия вызывающего срабатывание различных событий.
Заметки, относящейся К событию DisconnectData

Хотя Microsoft Excel является подписчиком на сервере ДРВ его триггеры DisconnectData события, если он больше не тему (например, когда вы Удалите или очистите формулы ДРВ в ячейке). Тем не менее Microsoft Excel не вызывается DisconnectData по каждой теме ДРВ сервера при закрытии книги или Программа Excel завершает работу; Вместо этого Microsoft Excel вызывается только ServerTerminate. При создании сервера ДРВ следует код для любой необходимости очистки разделов или других объектов при ServerTerminate событие запускается.

(c) Корпорация Майкрософт корпорация 2001 все права Зарезервировано. Взносы, Лори б. Тернер, корпорация Майкрософт.

Ссылки
Для получения дополнительных сведений щелкните следующий номер статьи базы знаний Майкрософт:
284883ДРВ сервер не отправляет уведомления об обновлениях для нескольких экземпляров Microsoft Excel
XL2007

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 285339 — последний просмотр: 06/05/2011 19:25:00 — редакция: 4.0

  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • kbexpertisebeginner kbautomation kbhowto kbmt KB285339 KbMtru
Отзывы и предложения