Syntax

DDETimeout milliseconds

Description

Sets the number of milliseconds that must elapse before any DDE command times out.

Comments

The milliseconds parameter is a Long and must be within the following range:

 0 <= milliseconds <= 2,147,483,647

The default is 10,000 (10 seconds).

Example

This example sets and retrieves a cell in an Excel spreadsheet. The timeout has been set to wait 2 seconds for Excel to respond before timing out.

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")
  DDETimeout 2000  'Wait 2 seconds for Excel to respond

  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); DDETerminate (statement); DDETerminateAll (statement).

D