Word VBA教程:DDEInitiate方法

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

expression.DDEInitiate(App, Topic)

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

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

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

说明

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

VBA示例

本示例用 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

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号