Word VBA教程:DDETerminateAll方法

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

expression.DDETerminateAll

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

说明

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

VBA示例

本示例首先打开 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号