返回介绍

DDEInitiate 方法

发布于 2019-09-29 09:55:02 字数 1033 浏览 1195 评论 0 收藏 0

打开通向其他应用程序的 DDE(动态数据交换)通道,并返回通道序号。

expression.DDEInitiate(App,Topic)

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

App String 类型,必需。应用程序名。

Topic String 类型,必需。DDE 主题名称(比如某一打开文档的名称),通道所指向的应用程序将识别该名称。

说明

如果成功,DDEInitiate 方法将返回打开通道的序号。所有后续的 DDE 函数通过该序号来识别本通道。

示例

本示例用 System 主题创建 DDE 会话,并打开 Microsoft Excel 工作表 Sales.xls。然后本示例终止 DDE 通道,创建通向 Sales.xls 的通道,并在 R1C1 单元格中插入文本。

Dim lngChannel As Long

lngChannel = DDEInitiate(App:="Excel", Topic:="System")
DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _
 & "C:\Sales.xls" & Chr(34) & ")]
DDETerminate Channel:=lngChannel
lngChannel = DDEInitiate(App:="Excel", Topic:="Sales.xls")
DDEPoke Channel:=lngChannel, Item:="R1C1", Data:="1996 Sales"
DDETerminate Channel:=lngChannel

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

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

发布评论

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