DDETerminate (statement)

Syntax DDETerminate channel
Description Closes the specified DDE channel.
Comments The channel parameter is an Integer containing the DDE channel number returned from DDEInitiate . An error will result if channel is invalid. All open DDE channels are automatically terminated when the script ends.
Example This example sets and retrieves a cell in an Excel spreadsheet. 
Sub Main()
  Dim cmd,q,ch%
  q = Chr(34) ' Define quotation marks.
 
  Id = Shell("c:\excel5\excel.exe",3) 'Start Excel.
  Ch% = DDEInitiate("Excel","Sheet1")
 
  On Error Resume Next
  cmd = "[ACTIVATE(" & q &"SHEET1" & q & ")]" 'Activate worksheet.
  DDEExecute ch%,cmd
 
  DDEPoke ch%,"R1C1","$1000.00"   'Send value to cell.
  'Retrieve value and display.
  MsgBox "The value of Row 1, Cell 1 is: " & DDERequest(ch%,"R1C1")
 
  DDETerminate ch%
  Msgbox "Finished..."
End Sub
See Also DDEExecute (statement); DDEInitiate (function); DDEPoke (statement); DDERequest, DDERequest$ (functions); DDESend (function); DDETerminateAll (statement); DDETimeout (statement).