DDETerminate (statement)


DDETerminate channel


Closes the specified DDE channel.


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.


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).

More information