Método Global.DDERequest (Word)
Utiliza un canal abierto de intercambio dinámico de datos (DDE) para solicitar información a la aplicación receptora y devuelve la información como una cadena.
expresión. DDERequest
( _Channel_
, _Item_
)
Expresión Variable que representa un objeto "Global". Opcional.
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. |
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 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. |
En este ejemplo, se abre el libro Book1.xls de Microsoft 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 en el tema System en Microsoft Excel y después se utiliza el elemento Topics para devolver una lista de 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
¿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.