XL2000: exemplos de Visual Basic utilizando DDE

Traduções de Artigos Traduções de Artigos
Artigo: 213626 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Intercâmbio dinâmico de dados (DDE) é um método para trocar dados com outro programa compatível com o DDE. No Microsoft Excel, uma forma pode utilizar DDE é através de uma macro do Visual Basic for Applications.

Mais Informação

O código de macro seguinte fornece alguns exemplos simples utilizando DDE a partir do Microsoft Excel para o Microsoft Word. Microsoft fornece exemplos de programação ilustração só, sem garantia expressa ou implícita, incluindo, sem limitação, garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas.
Se dispõe de limitada experiência de programação, poderá contactar um Microsoft Certified Partner ou a serviços de aviso. Para obter mais informações, visite estes Web sites da Microsoft:

Microsoft certificado Partner - https://partner.microsoft.com/global/30000104

Serviços Microsoft aviso - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte Web site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Macro exemplo 1:

Nota : para utilizar esta macro, o Microsoft Word tem de ter.
  1. Introduza o seguinte código de macro numa nova folha de módulo:
          Sub Using_DDE1()
    
          ' Dimension the variables.
          Dim Chan As Integer
          Dim RequestItems As Variant
    
          ' Start a channel to Word using the System topic.
          Chan = DDEInitiate("WinWord", "System")
    
          ' Requesting information from Word using the Formats item
          ' this will return a one dimensional array.
          RequestItems = DDERequest(Chan, "Formats")
    
          ' Uses a FOR loop to cycle through the array and display in a message box.
          For i = LBound(RequestItems) To UBound(RequestItems)
    
              MsgBox RequestItems(i)
    
          Next i
    
          ' Terminate the DDE channel.
          DDETerminate Chan
    
          End Sub
    						
  2. Execute a macro "Using_DDE1".
Uma série de caixas de mensagem será apresentada com cada um dos tipos de formato disponíveis no Microsoft Word.

Macro exemplo 2:

Nota : para utilizar este exemplo, o Microsoft Word tem de ter.

  1. Guardar um documento Microsoft Word, denominado ddetest.doc para a raiz da unidade C.
  2. Abra um novo livro do Microsoft Excel e, na Folha1, célula A1, introduza "hello" .
  3. Introduza o código de macro seguinte numa nova folha de módulo neste livro:
          Sub Using_DDE2()
    
          ' Dimension the variables.
          Dim PokeRange As Object
          Dim Chan As Integer
    
          ' Create an range object to poke.
          Set PokeRange = Range("Sheet1!a1")
    
          ' Initiate a channel to Word using a file as the topic.
          Chan = DDEInitiate("WinWord", "c:\ddetest.doc")
    
          ' Execute a few WordBasic commands.
          DDEExecute Chan, "[FileNewDefault]"
          DDEExecute Chan, "[InsertPara]"
          DDEExecute Chan, "[InsertPara]"
    
          ' Pokes the data in A1 into ddetest.doc.
          ' This is not poked into the active document.
          ' The data is placed in the topic that started the DDE conversation.
          ' \StartOfDoc is a predefined bookmark in Word.
          DDEPoke Chan, "\StartOfDoc", PokeRange
    
          ' Terminate the DDE channel.
          DDETerminate Chan
    
          End Sub
    						
  4. Execute a macro "Using_DDE2".
  5. Abra o documento ddetest.doc no Microsoft Word.

    Nota : A palavra "Olá" (sem as aspas) é adicionada ao início do documento.

Referências

Para mais informações sobre o DDE, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva DDE no Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.

Propriedades

Artigo: 213626 - Última revisão: 23 de novembro de 2006 - Revisão: 3.5
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2000 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbprogramming KB213626 KbMtpt
Tradução automática
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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 213626

Submeter comentários

 

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