Syntax

DDEPoke channel, DataItem, value

Description

Sets the value of a data item in the receiving application associated with an open DDE link.

Comments

The DDEPoke statement takes the following parameters:

Parameter

Description

Channel

Integer containing the DDE channel number returned from DDEInitiate. An error will result if channel is invalid.

DataItem

Data item to be set. This parameter can be any expression convertible to a String. The format depends on the server.

Value

The new value for the data item. This parameter can be any expression convertible to a String. The format depends on the server. A runtime error is generated if value is Null.

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); DDERequest, DDERequest$ (functions); DDESend (function); DDETerminate (statement); DDETerminateAll (statement); DDETimeout (statement).

D