Iniciar sesi�n

Select the product you need help with

Servidor RTD no env�a notificaciones de actualizaci�n a varias instancias de Excel

Id. de art�culo: 284883 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Expandir todo | Contraer todo

S�ntomas

Cuando se utiliza varias instancias de Microsoft Office Excel junto con el servidor RealTimeData (RTD), puede recibir el mensaje siguiente:

El servidor de datos en tiempo real 'servername.classname' no responde. �Desea que Microsoft Excel intente reiniciar el servidor?

Por lo tanto, el servidor RTD es incapaz de enviar notificaciones de actualizaci�n a varias instancias de Excel.

Volver al principio | Enviar comentarios

Puede recibir este mensaje si el servidor RTD es un EXE de ActiveX se cre� para MultiUse creaci�n de instancias, que es un valor predeterminado para proyectos de EXE ActiveX en Visual Basic. Un EXE de ActiveX es MultiUse puede compartirse entre los clientes. Instancias independientes de Excel no pueden compartir servidores RTD. Cuando Excel inicia un servidor RTD, Excel llama al m�todo ServerStart de servidor RTD y, a continuaci�n, lo pasa una referencia al objeto CallBack para esa instancia de Excel. Por lo tanto, si dos instancias de Excel intentan compartir el mismo servidor RTD, la segunda instancia reemplaza el objeto CallBack para la primera instancia. Este comportamiento invalida el objeto CallBack para la primera instancia.

Volver al principio | Enviar comentarios

Soluci�n

Utilice la creaci�n de instancias SingleUse para componentes de ActiveX EXE que actuar�n como servidores RTD para Excel. Al generar componentes ActiveX EXE como SingleUse, cada instancia de Excel tiene su propia instancia de la RTD servidor.

Otra soluci�n es utilizar una DLL de ActiveX para el servidor RTD en lugar de un archivo EXE de ActiveX. Carga de DLL ActiveX en el mismo espacio de proceso que sus clientes y cada instancia de Excel siempre tiene su propia instancia del servidor RTD.

Volver al principio | Enviar comentarios

M�s informaci�n

Pasos para reproducir el problema

En Visual Basic, cree un EXE de ActiveX nuevo proyecto.
En el men� proyecto , haga clic en referencias .
Seleccione la Biblioteca de objetos de Microsoft Excel 2002 y, a continuaci�n, haga clic en Aceptar .
En el men� proyecto , haga clic en Propiedades de Project1 .
Cambie el nombre del proyecto a "RTDExe" y, a continuaci�n, haga clic en Aceptar .
Cambie la propiedad nombre del m�dulo de clase Class1 a "Ejemplo".

Agregue el c�digo siguiente al m�dulo de clase.

Option Explicit

Implements IRtdServer  'Interface allows Excel to contact this RealTimeData server.

Dim nCounter As Long

Private Function IRtdServer_ConnectData(ByVal TopicID As Long, Strings() As Variant, _
   GetNewValues As Boolean) As Variant
    IRtdServer_ConnectData = nCounter
End Function

Private Sub IRtdServer_DisconnectData(ByVal TopicID As Long)
    nCounter = 0
End Sub

Private Function IRtdServer_Heartbeat() As Long
    'Do nothing.
End Function

Private Function IRtdServer_RefreshData(TopicCount As Long) As Variant()
    Dim aUpdates(0 To 1, 0 To 0) As Variant
    nCounter = nCounter + 1
    aUpdates(0, 0) = 0   'For this sample, we only refresh topic id = 0
    aUpdates(1, 0) = nCounter
    TopicCount = 1
    IRtdServer_RefreshData = aUpdates
End Function

Private Function IRtdServer_ServerStart(ByVal CallbackObject As Excel.IRTDUpdateEvent) As Long
    nCounter = 0
    Set oCallBack = CallbackObject
    g_TimerID = SetTimer(0, 0, TIMER_INTERVAL, AddressOf TimerCallback)
    If g_TimerID > 0 Then IRtdServer_ServerStart = 1       'Any value <1 indicates failure.
End Function

Private Sub IRtdServer_ServerTerminate()
    KillTimer 0, g_TimerID
End Sub

En el men� proyecto , seleccione Agregar m�dulo .

Agregue el c�digo siguiente al nuevo m�dulo.

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

En el men� archivo , haga clic en Crear RTDExe.exe para crear el componente.
En Excel, crear un nuevo libro.
En la celda A1, escriba la f�rmula siguiente:
=RTD("RTDExe.Example",,"X")
La funci�n devuelve 0.
Despu�s de cinco segundos, el valor en incrementos de A1 para indicar que el servidor es notificar a Excel de las actualizaciones.
Inicie otra instancia de Excel y, a continuaci�n, agregue un nuevo libro.
En la celda A1, escriba la f�rmula siguiente:
=RTD("RTDExe.Example",,"X")
La funci�n devuelve 0.
El valor de A1 de la segunda instancia de Excel continuar� actualiz�ndose. Pero no el valor de A1 de la primera instancia. Tras el latido ha transcurrido el intervalo (15 segundos es el valor predeterminado), la primera instancia de Excel muestra el mensaje de error siguientes:
El servidor de datos en tiempo real 'rtdexe.example' no responde. �Desea que Microsoft Excel intente reiniciar el servidor?
Si hace clic en S� , se reiniciar� el servidor y la primera instancia de Excel recibe actualizaci�n notificaciones desde el servidor. Sin embargo, despu�s de reiniciar el servidor, la segunda instancia de Excel, a continuaci�n, genera el mismo mensaje ha sido alcanza el intervalo de latidos.

Para corregir el problema, de modo que no reciban este error, cambie al proyecto en Visual Basic, cambie la propiedad Instancing de la clase example a SingleUse y, a continuaci�n, reconstruya el servidor RTD.

Volver al principio | Enviar comentarios

Referencias

Para obtener m�s informaci�n, haga clic en el n�mero de art�culo siguiente para verlo en Microsoft Knowledge Base:

285339

(http://support.microsoft.com/kb/285339/ )

C�mo crear un servidor RealTimeData para Excel

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 284883 - �ltima revisi�n: lunes, 14 de mayo de 2007 - Versi�n: 3.2

La informaci�n de este art�culo se refiere a:

Microsoft Office Excel 2007
Microsoft Office Excel 2003
Microsoft Excel 2002 Standard Edition
Microsoft Visual Basic 6.0 Professional Edition

kbmt kberrmsg kbpending kbprb KB284883 KbMtes

Traducci�n autom�tica

IMPORTANTE: Este art�culo ha sido traducido por un software de traducci�n autom�tica de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece art�culos traducidos por un traductor humano y art�culos traducidos autom�ticamente para que tenga acceso en su propio idioma a todos los art�culos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los art�culos traducidos autom�ticamente pueden contener errores en el vocabulario, la sintaxis o la gram�tica, como los que un extranjero podr�a cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisi�n, error o da�o ocasionado por una mala traducci�n del contenido o como consecuencia de su utilizaci�n por nuestros clientes. Microsoft suele actualizar el software de traducci�n frecuentemente.

Haga clic aqu� para ver el art�culo original (en ingl�s): 284883

(http://support.microsoft.com/kb/284883/en-us/ )

Volver al principio | Enviar comentarios