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

D