Application.DDERequest 方法 (Word)
使用打开的动态数据交换 (DDE) 通道向接收应用程序中，请求的信息并返回 字符串 形式的信息。
语法
expression。 DDERequest( _Channel_ , _Item_ )
expression：表示“Application”对象的变量。 可选。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| 频道 | 必需 | Long | 查阅 方法返回的通道号。 |
| Item | 必需 | String | 需要进行查询的项。 |
备注
请求服务器应用程序的主题信息时，必须指定包含所请求内容的主题中的项目。 例如，在 Microsoft Office Excel 中，单元格是合法项目，可以通过"R1C1"格式或已命名的引用来引用单元格。
Microsoft Excel 和其他支持 DDE 的应用程序可识别名为“系统”的主题。下表介绍了系统主题中的三个标准项。 请注意：使用 SysItems 项目可得到 System 主题中的其他项目列表。
| System 主题中的项目 | 效果 |
|---|---|
| SysItems | 返回 System 主题中的所有项目的列表。 |
| Topics | 返回所有有效主题的列表。 |
| Formats | 返回 Word 支持的所有剪贴板格式的列表。 |
示例
本示例打开 Excel 工作簿 Book1.xls，然后检索单元格 R1C1 的内容。
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
本示例打开通向 Excel 中 System 主题的通道，然后用 Topics 项返回可用主题的列表。 然后，本示例将该主题列表（其中包括所有打开的工作簿）插在选定内容的后面。
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。