WPS 基础接口 > 文字 API 参考 > Application > 方法 > Application.DDERequest 方法
通过打开的 DDE(动态数据交换)通道向接收应用程序查询信息,并以 String 类型返回该信息。

语法

表达式.DDERequest(Channel, Item)

表达式   一个代表 Application 对象的变量。可选。

参数

名称必选/可选数据类型说明
Channel必选LongDDEInitiate 方法返回的通道号。
Item必选String需要进行查询的项。

说明

安全性??动态数据交换 (DDE) 是一种不安全的陈旧技术。如果可能,请使用比 DDE 更加安全的技术,如对象链接和嵌入 (OLE)。

请求服务器应用程序的主题信息时,必须指定包含所请求内容的主题中的项目。例如,在ET 中,单元格是合法项目,可以通过“R1C1”格式或已命名的引用来引用单元格。

ET 和其他支持 DDE 的应用程序可识别名为“System”的主题。下表对 System 主题中的三个标准项目加以说明。请注意:使用 SysItems 项目可得到 System 主题中的其他项目列表。

System 主题中的项目效果
SysItems返回 System 主题中的所有项目的列表。
Topics返回所有有效主题的列表。
Formats返回 WPS 支持的所有剪贴板格式的列表。

示例

本示例打开 ET 工作簿 Book1.xls,然后检索单元格 R1C1 的内容。

示例代码
Dim lngChannel As Long

lngChannel = DDEInitiate(App:="ET", Topic:="System")
DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _
    & "C:\Documents\Book1.xls" & Chr(34) & ")]"
DDETerminate Channel:=lngChannel
lngChannel = DDEInitiate(App:="ET", Topic:="Book1.xls")
MsgBox DDERequest(Channel:=lngChannel, Item:="R1C1")
DDETerminateAll

本示例打开通向 ET 中 System 主题的通道,然后用 Topics 项返回可用主题的列表。然后,本示例将该主题列表(其中包括所有打开的工作簿)插在选定内容的后面。

示例代码
Dim lngChannel As Long
Dim strTopicList As String

lngChannel = DDEInitiate(App:="ET", Topic:="System")
strTopicList = DDERequest(Channel:=lngChannel, Item:="Topics")
Selection.InsertAfter strTopicList
DDETerminate Channel:=lngChannel


请参阅