http://snippets.dzone.com/posts Sun, 27 Jul 2008 00:55:32 GMT DZone Snippets: DDE code http://snippets.dzone.com/posts/show/3112 // This is just sample code of some dde commands <br /> <br /><code> <br />Sub RUNEXCELMACRO() <br />'RUN MACRO <br />aChan = DDEInitiate(App:="Excel", Topic:="System") <br />DDEExecute Channel:=aChan, Command:="[Run(" & Chr(34) & _ <br /> "Personal.xls!Macro1" & Chr(34) & ")]" <br />DDETerminate Channel:=aChan <br />'POKE <br />Chan = DDEInitiate(App:="Excel", Topic:="System") <br />DDEExecute Channel:=Chan, Command:="[OPEN(" & Chr(34) _ <br /> & "C:\Sales.xls" & Chr(34) & ")]" <br />DDETerminate Channel:=Chan <br />Chan = DDEInitiate(App:="Excel", Topic:="Sales.xls") <br />DDEPoke Channel:=Chan, Item:="R1C1", Data:="1996 Sales" <br />DDETerminate Channel:=Chan <br />'This example opens the Microsoft Excel workbook Book1.xls and retrieves the contents of cell R1C1. <br />Chan = DDEInitiate(App:="Excel", Topic:="System") <br />DDEExecute Channel:=Chan, Command:="[OPEN(" & Chr(34) _ <br /> & "C:\My Documents\Book1.xls" & Chr(34) & ")]" <br />DDETerminate Channel:=Chan <br />Chan = DDEInitiate(App:="Excel", Topic:="C:\DATA\SBS.xls") <br />msg = DDERequest(Channel:=Chan, Item:="R2C1") <br />msg = msg & " " & DDERequest(Channel:=Chan, Item:="R2C2") <br />MsgBox msg <br />DDETerminateAll <br />'This example opens a channel to the System topic in Microsoft Excel and then uses the Topics item to return a list of available topics. The example inserts the topic list, which includes all open workbooks, after the selection. <br />aChan = DDEInitiate(App:="Excel", Topic:="System") <br />TOPICLIST = DDERequest(Channel:=aChan, Item:="Topics") <br />Selection.InsertAfter TOPICLIST <br />DDETerminate Channel:=aChan <br /> <br />End Sub <br /></code> Fri, 08 Dec 2006 22:50:58 GMT http://snippets.dzone.com/posts/show/3112 millerjohneric (John Miller)