DDEPoke does not working

[mulderm 3]

Hello, I have write the follow VBA-code in Excel: sub test() dim woord as integer dim channelnum as long woord=150 channelnum=DDEInitiate("rslinx", "testsol") DDEPoke channelnum, "N7:0", woord DDETerminate (channelnum) end sub When I run this code nothings happend in N7:0. Why does this not working? I have created a topic and that is working. mulderm

[Sergei Troizky 26]

I had the same problem, though with Mitsubishi. For some reason the data cannot be from a VBA variable but only from a range. Try this: Sub PLCPOKE(DEVICE As String, DATA As Long) CHANNELNUMBER = Application.DDEInitiate(app:="rslinx", topic:="testsol") Range("DATA_FOR_PLC").Value = DATA Application.DDEPoke CHANNELNUMBER, DEVICE, "DATA_FOR_PLC" Application.DDETerminate CHANNELNUMBER End Sub It must be a cell in Excel named "DATA_FOR_PLC". For bit devices values 0 and 1 are valid. Edited 12 Sep 2005 by Sergei Troizky

[mulderm 3]

You´re right Sergei. It only works with cell references in Excel. In Access it will works good with a variable name. The right code: sub test() dim channelnum as long Worksheets("DDE").Range("A1").value=150 channelnum=DDEInitiate("rslinx", "testsol") DDEPoke channelnum, "N7:0", Worksheets("DDE").Range("A1") DDETerminate (channelnum) end sub Thanks for the helping. mulderm __________________ Netherlands