home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_01_02
/
1n02065a
< prev
next >
Wrap
Text File
|
1990-07-09
|
997b
|
28 lines
#Launch
run excel.exe
#LOGiiX
function Main()
{DDE Commands}
begin
channel:=DDEInitiate("excel","emps"); {Set up DDE link}
if(channel=0)then
begin
messagebox("Error initiating DDE link"); {Couldn't open channel - No Excel?}
end
else
begin
messagebox("Storing a name in the spreadsheet.");
DDEPoke(channel,"r1c1","Karen Watterson"); {Giving data to Excel}
messagebox("Getting the name back.");
Employee_Name := DDERequest(channel,"r1c1"); {Requesting data from Excel}
messagebox("Asking Excel to beep.");
DDEExecute(channel,"[beep()]"); {Telling Excel to execute command}
messagebox("Closing the DDE link.");
DDETerminate(channel); {Close down link}
messagebox("Employee = ",Employee_Name); {Show data received}
end;
end