Word VBA教程:DDEPoke方法

通过打开的 DDE(动态数据交换)通道向应用程序发送数据。

expression.DDEPoke(Channel, Item, Data)

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

Channel   Long 类型,必需。由 DDEInitiate方法返回的通道序号。

Item   String 类型,必需。DDE 主题中的项,指定数据将发送给该项。

Data   String 类型,必需。需要发送至接收应用程序(即 DDE 服务器)的数据。

说明

如果使用 DDEPoke方法不成功,将导致出错。

VBA示例

本示例打开 Microsoft Excel 工作表 Sales.xls,然后在 R1C1 单元格内插入“1996 Sales”。


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号