Você está offline; aguardando reconexão
Entrar

Como criar um servidor RealTimeData para Excel

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

285339
Sumário
O Microsoft Excel fornece uma nova função de planilha, RTD, que lhe permite chamar um servidor de automação COM (Component Object Model) para fins de recuperação de dados em tempo real. Este artigo descreve como usar o Visual Basic para criar um servidor RealTimeData para uso com função RTD do Excel.
Mais Informações
A função de planilha RTD tem a seguinte sintaxe:
= RTD(ProgID,Server,String1,[String2],...)
O primeiro argumento, ProgID , representa o identificador programático (ProgID) do servidor RealTimeData. O argumento Server indica o nome da máquina na qual o servidor RealTimeData é executado; esse argumento pode ser uma seqüência de caracteres nula ou omitidos se o servidor RealTimeData estiver ser executado localmente. Os argumentos restantes simplesmente representam parâmetros para enviar para o servidor RealTimeData; cada combinação exclusiva desses parâmetros representa um "tópico, identificação de tópico"que tem um associado"." Parâmetros são diferencia maiúsculas de minúsculas. Por exemplo, a seguir ilustra chamadas para o servidor RTD que resultaria em três identificações de tópico separado:
= RTD("ExcelRTD.RTDFunctions",,"AAA", "10")

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

= RTD("ExcelRTD.RTDFunctions",,"aaa", "5")
Em ordem para um servidor de automação COM ser um servidor RealTimeData para uso com função RTD do Excel, ele deve implementar a interface IRTDServer . O servidor deve implementar todos os métodos de IRTDServer :

ServerStart
Chamado quando o Excel solicita o primeiro tópico RTD para o servidor. ServerStart deve retornar um 1 no sucesso e um valor negativo ou 0 em caso de falha. O primeiro parâmetro do método ServerStart é um objeto de retorno de chamada que o servidor RealTimeData usa para notificar o Excel quando ele deve reunir atualizações de RealTimeData o servidor.
ServerTerminate
Chamado quando o Excel não requer mais tópicos RTD do servidor RealTimeData.
ConnectData
Chamado sempre que o Excel solicita um novo tópico RTD do servidor RealTimeData.
DisconnectData
Chamado sempre que o Excel não requer mais um tópico específico.
pulsação
Chamado pelo Excel se um determinado intervalo tiver decorrido desde a última vez que Excel foi notificado sobre atualizações do servidor RealTimeData.
RefreshData
Chamado quando o Excel está solicitando uma atualização de tópicos. RefreshData é chamado depois que o servidor notifica Excel que existem atualizações, e ele retorna uma contagem dos tópicos para atualizar juntamente com a identificação de tópico e o valor para cada tópico.

Criar um servidor de RealTimeData exemplo

O exemplo a seguir demonstra como criar e usar um servidor RealTimeData com o Microsoft Excel 2002. Este servidor simplesmente fornece um contador é atualizado a cada 10 segundos em uma planilha. O servidor aceita até duas seqüências de tópico. A primeira seqüência do tópico pode ser AAA, BBB e CCC; qualquer outra seqüência do tópico é considerada inválida e o servidor retornará # valor! para a função RTD. Segunda seqüência de caracteres é um valor numérico que representa como o valor de retorno deve ser incrementado. Se a segunda seqüência de caracteres for omitida, o valor do incremento padrão 1. Se a segunda seqüência de caracteres não for numérica, o servidor retorna # núm! para a função RTD.
  1. Inicie um novo projeto ActiveX DLL no Visual Basic.
  2. No menu Project , clique em referências , selecione a biblioteca de objetos para a sua versão do Excel e, em seguida, clique em OK . Por exemplo, selecione um destes procedimentos:
    • Para Microsoft Office Excel 2007, selecione Microsoft Excel 12.0 Object Library .
    • Para Microsoft Office Excel 2003, selecione Microsoft Excel 11.0 Object Library .
    • Para Microsoft Excel 2002, selecione a Biblioteca de objetos do Microsoft Excel 10.0 .
  3. No menu Project , clique em Propriedades de Projeto1 . Alterar o Nome do projeto para ExcelRTD e, em seguida, clique em OK .
  4. Altere a propriedade nome do módulo de classe Class1 para RTDFunctions . Adicione o seguinte código para 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. No menu Project , clique em Adicionar módulo de classe . Alterar o módulo de classe propriedade Name para o tópico e altere a propriedade Instancing para Private . Adicione o seguinte código ao módulo de classe tópico :
    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. No menu Project , selecione Add Module . Adicione o seguinte código para o novo 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 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. No menu arquivo , clique em Criar ExcelRTD.dll para criar o componente.

Usar o servidor RTD no Excel

  1. Inicie uma nova pasta de trabalho no Microsoft Excel.
  2. Na célula A1, insira a seguinte fórmula e, em seguida, pressione a tecla ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    O valor de retorno inicial é "AAA: 0". Após cinco segundos, o valor atualizado para "AAA: 10" e após 10 segundos, o valor atualizado para "AAA:15" e assim por diante.

  3. Na célula A2, digite a fórmula a seguir e pressione ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"BBB", 3)
    O valor de retorno inicial é "BBB: 0". Cada cinco segundos o valor da célula aumenta por 3.

  4. Na célula A3, digite a fórmula a seguir e pressione ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 5)
    O valor de retorno inicial corresponde ao conteúdo da célula A1 como esse é o mesmo "tópico" que é usado em A1.

  5. Na célula A4, insira a seguinte fórmula e pressione ENTER:
    = RTD("ExcelRTD.RTDFunctions",,"AAA", 10)
    O valor de retorno inicial é "AAA: 0." cada cinco segundos os incrementos de valor de célula como as outras células. Observe que o valor de retorno não coincide com o conteúdo da célula A1 ou A3 porque a combinação de parâmetros passados para o servidor é diferente.
Nesta ilustração, o servidor RTD foi compilado e Excel foi usando a versão de tempo de execução do componente. Para fins, RTD de depuração podem ser executados servidores a partir do IDE do Visual Basic.

Para executar em modo de depuração:
  1. Feche o Microsoft Excel e alterne para o projeto em Visual Basic.
  2. Pressione F5 para iniciar o componente. Se for exibida a caixa de diálogo Propriedades do projeto , clique em OK para selecionar a opção padrão de espera para componentes a serem criados .
  3. Certifique-se que a janela Verificação imediata no Visual Basic está sendo exibida. Quando você insere fórmulas nas células e as células são atualizadas, examine o conteúdo da janela Verificação imediata no Visual Basic para ver quais ações são disparar eventos diferentes.
Observação referente a eventos DisconnectData

Embora o Excel seja um assinante para o servidor RTD, ela dispara o evento DisconnectData quando ele não precisa de um tópico (por exemplo, quando você excluir ou limpar uma fórmula RTD em uma célula). Entretanto, o Excel não chama DisconnectData sobre cada tópico para o servidor RTD quando a pasta de trabalho é fechada ou o Excel fecha; em vez disso, o Excel chama somente ServerTerminate . Quando você estiver criando um servidor RTD, você deve código para qualquer necessária limpeza de tópicos ou de outros objetos quando o evento ServerTerminate for acionado.

(c) Microsoft Corporation 2001, todos os direitos reservados. Contribuições de Lori B. Turner, Microsoft Corporation.

Referências
Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
284883Servidor RTD não envia notificações de atualização para várias instâncias do Excel
XL2007

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 285339 - Última Revisão: 03/29/2007 16:44:08 - Revisão: 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 KbMtpt
Comentários
s">