Application.DDETerminateAll 方法

关闭所有由 WPS 打开的动态数据交换 (DDE) 通道。

语法

表达式.DDETerminateAll

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

说明

此方法不关闭由客户端应用程序打开的到 WPS 的通道。使用此方法与对每一个打开的通道使用 DDETerminate 方法等效。

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

如果中断打开 DDE 通道的宏，可能会无意中使一个通道处于打开状态。宏结束时打开的通道不会自行关闭，并且每一个打开的通道都会占用系统资源。因此，在调试打开一个或多个 DDE 通道的宏时，最好使用此方法关闭 DDE 通道。

示例

本示例打开ET 工作簿 Book1.xls，在单元格 R2C3 中插入文本，然后保存此工作簿，再关闭所有的 DDE 通道。

示例代码

示例代码
`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") DDEPoke Channel:=lngChannel, Item:="R2C3", Data:="Hello World" DDEExecute Channel:=lngChannel, Command:="[Save]" DDETerminateAll`

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")
DDEPoke Channel:=lngChannel, Item:="R2C3", Data:="Hello World"
DDEExecute Channel:=lngChannel, Command:="[Save]"
DDETerminateAll

请参阅