Application.DDEPoke (Word)
Verwendet einen geöffneten DDE-Kanal (DDE = Dynamic Data Exchange/Dynamischer Datenaustausch) zum Senden von Daten an eine Anwendung.
Wenn die DDEPoke-Methode nicht erfolgreich ist, tritt ein Fehler auf.
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
Hier sind die benannte Argumente :
Channel - Long
Item (String) - Das Element innerhalb eines DDE-Themas, an das die angegebenen Daten gesendet werden sollen.
Data - String