Método Application.DDERequest (Word)
Usa um canal DDE (troca) de dinâmico de dados aberto para solicitar informações do aplicativo receptor e retorna as informações como uma cadeia de caracteres.
Sintaxe
expression. DDERequest( _Channel_ , _Item_ )
expressão Uma variável que representa um objeto Application. Opcional.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Canal | Obrigatório | Long | O número do canal retornado pelo método DDEInitiate. |
| Item | Obrigatório | String | O item a ser solicitado. |
Comentários
Ao solicitar informações do tópico no aplicativo servidor, você precisa especificar o item desse tópico cujo conteúdo você está solicitando. No Microsoft Office Excel, por exemplo, células são itens válidos e você se refere a elas usando o formato "L1C1" ou referências nomeadas.
O Microsoft Excel e outros aplicativos que dão suporte ao DDE reconhecem um tópico chamado "Sistema". Três itens padrão no tópico Sistema são descritos na tabela a seguir. Observe que você pode obter uma lista dos outros itens do tópico System usando o item SysItems.
| Item do tópico System | Efeito |
|---|---|
| SysItems | Retorna uma lista de todos os itens do tópico System. |
| Topics | Retorna uma lista de todos os tópicos disponíveis. |
| Formats | Retorna uma lista de todos os formatos da área de transferência aos quais o Word dá suporte. |
Exemplo
Este exemplo abre uma pasta de trabalho do Excel Book1.xls e recupera o conteúdo da célula L1C1.
Dim lngChannel As Long
lngChannel = DDEInitiate(App:="Excel", Topic:="System")
DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _
& "C:\Documents\Book1.xls" & Chr(34) & ")]"
DDETerminate Channel:=lngChannel
lngChannel = DDEInitiate(App:="Excel", Topic:="Book1.xls")
MsgBox DDERequest(Channel:=lngChannel, Item:="R1C1")
DDETerminateAll
Este exemplo abre um canal para o tópico System no Excel e usa o item Topics para retornar uma lista dos tópicos disponíveis. O exemplo insere a lista de tópicos, que inclui todas as pastas de trabalho abertas, após a seleção.
Dim lngChannel As Long
Dim strTopicList As String
lngChannel = DDEInitiate(App:="Excel", Topic:="System")
strTopicList = DDERequest(Channel:=lngChannel, Item:="Topics")
Selection.InsertAfter strTopicList
DDETerminate Channel:=lngChannel
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.