DDETerminateAll 方法

       

关闭所有由 Word 打开的 DDE(动态数据交换)通道。此方法不关闭由客户应用程序打开的到 Word 的动态数据交换通道。使用此方法和对每一个打开的通道使用 DDETerminate 的方法等效。

expression.DDETerminateAll

expression   可选。该表达式返回一个 Application 对象。

说明

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

示例

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

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