DDEPoke Method Example

This example opens the Microsoft Excel workbook Sales.xls and inserts "1996 Sales" into cell R1C1.

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