Application.DDEPoke (Word)

Uses an open dynamic data exchange (DDE) channel to send data to an application.

If the DDEPoke method isn't successful, an error occurs.

DDEPoke (Channel, Item, Data)

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

Arguments

The following arguments are required:

Channel (Long) - The channel number returned by the DDEInitiate method.

Item (String) - The item within a DDE topic to which the specified data is to be sent.

Data (String) - The data to be sent to the receiving application (the DDE server).