Método Application.DDERequest (Word)

Utiliza un canal de intercambio (DDE) dinámico de datos para solicitar información a la aplicación receptora y devuelve la información como una cadena.

Sintaxis

expresión. DDERequest( _Channel_ , _Item_ )

expresión Variable que representa un objeto Application. Opcional.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Canal	Obligatorio	Long	El número de canal que devuelve el método DDEInitiate.
Item	Obligatorio	String	El elemento que se solicita.

Comentarios

Cuando se solicita información de un tema de la aplicación servidor, se debe especificar el elemento del tema cuyo contenido se solicita. En Microsoft Office Excel, por ejemplo, las celdas son elementos válidos y se hace referencia a ellas mediante el formato "F1C1" o referencias con nombre.

Microsoft Excel y otras aplicaciones que admiten DDE reconocen un tema denominado "System". En la tabla siguiente se describen tres elementos estándar del tema Sistema. Se puede obtener una lista de otros elementos del tema System haciendo uso del elemento SysItems.

Elemento del tema System	Int.Efectivo
SysItems	Devuelve una lista de todos los elementos del tema System.
Topics	Devuelve una lista de todos los temas disponibles.
Formatos	Devuelve una lista de todos los formatos del Portapapeles que admite Word.

Ejemplo:

En este ejemplo, se abre el libro Book1.xls de Excel y se recupera el contenido de la celda F1C1.

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

En este ejemplo se abre un canal al tema System de Excel y después se utiliza el elemento Topics para devolver una lista de los temas disponibles. En este ejemplo se inserta la lista de temas, que incluye todos los libros abiertos, después de la selección.

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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.