Application.DDEPoke (Word)

Usa um canal aberto de intercâmbio dinâmico de dados DDE para enviar dados para um aplicativo.

Se o método DDEPoke não for bem-sucedido, ocorrerá um erro.

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

O seguinte argumento é opcional

Channel (Long) - O número do canal retornado pelo método DDEInitiate.

Item (String) - O item dentro de um tópico DDE para o qual os dados especificados devem ser enviados.

Data (String) - Os dados a serem enviados para o aplicativo receptor (o servidor DDE).