Application.DDEPoke 方法

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

语法

表达式.DDEPoke(Channel, Item, Data)

表达式 一个代表 Application 对象的变量。可选。

参数

名称	必选/可选	数据类型	说明
Channel	必选	Long	DDEInitiate 方法返回的通道号。
Item	必选	String	DDE 主题中的项，指定的数据将发送给该项。
Data	必选	String	需要发送至接收应用程序（即 DDE 服务器）的数据。

说明

安全性??动态数据交换 (DDE) 是一种不安全的陈旧技术。如果可能，请使用比 DDE 更加安全的技术，如对象链接和嵌入 (OLE)。

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

示例

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

示例代码

示例代码
`Dim lngChannel As Long lngChannel = DDEInitiate(App:="ET", Topic:="System") DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _ & "C:\Sales.xls" & Chr(34) & ")] DDETerminate Channel:=lngChannel lngChannel = DDEInitiate(App:="ET", Topic:="Sales.xls") DDEPoke Channel:=lngChannel, Item:="R1C1", Data:="1996 Sales" DDETerminate Channel:=lngChannel`

Dim lngChannel As Long

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

请参阅