DDEPoke does not working

mulderm

Member

M

Join Date

Jun 2003

Location

Netherlands

Posts

298

• Sep 12, 2005

• #1

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

 

OkiePC

Lifetime Supporting Member

Join Date

Mar 2005

Location

ENE of Nowhere Oklahoma

Posts

11,790

• Sep 12, 2005

• #2

I've had trouble poking the contents of excel variables into a PLC. It usually works fine with a literal. Try changing:

DDEPoke channelnum, "N7:0", woord

to

DDEPoke channelnum, "N7:0", 150

and see if it will work. I will look around for some old posts that dealt with this issue. I can't remember the solution, but should be able to search for it.
Paul C.

 

stooperbike

Member

S

Join Date

Oct 2004

Location

New Hampshire

Posts

78

• Sep 12, 2005

• #3

Try channelnum and variant.

 

mulderm

Member

OP

M

Join Date

Jun 2003

Location

Netherlands

Posts

298

• Sep 12, 2005

• #4

No guys,still not working.

mulderm

 

hashem

Member

H

Join Date

Aug 2005

Location

anytown

Posts

33

• Sep 12, 2005

• #5

I think it will not work until you you change:
DDEPoke channelnum, "N7:0", woord
To somthing like:
DDEPoke channelnum, "N7:0", Cells(1,1)

 

mulderm

Member

OP

M

Join Date

Jun 2003

Location

Netherlands

Posts

298

• Sep 12, 2005

• #6

Right Hashem!
It works.
This means that for the use of DDEPoke always using
a cell reference?

mulderm

 

NOP

Member

Join Date

Jan 2005

Location

Bedford

Posts

217

• Sep 12, 2005

• #7

Any error code in the VB? Any code in the PLC writing to N7:0?

 

hashem

Member

H

Join Date

Aug 2005

Location

anytown

Posts

33

• Sep 12, 2005

• #8

Yes mulderm, Also for DDERequest.

 

OkiePC

Lifetime Supporting Member

Join Date

Mar 2005

Location

ENE of Nowhere Oklahoma

Posts

11,790

• Sep 12, 2005

• #9

Sorry, I misspoke in my earlier post. I never have gotten a lieteral or variable to work with DDEPoke, only cell references. You may also need to insert a DDEInitiate statement:

DDEInitiate ("RSLinx", "topicname")

Then try DDEpoke-ing with a cell reference like:

DDEPoke channelnum, "N7:0", [A1]

If that doesn't work, there's something wrong with the topic config, or comms. I can get cell references to work like the one above, but have never been able to use a variable name or literal in a DDEPoke. Please let us know if you succeed.

 

mulderm

Member

OP

M

Join Date

Jun 2003

Location

Netherlands

Posts

298

• Sep 12, 2005

• #10

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

mulderm