返回介绍

DDETerminateAll 方法

发布于 2019-09-29 09:55:03 字数 1004 浏览 908 评论 0 收藏 0

关闭所有由 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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文