VBA To write tag values in Control logix

Hi all
I am trying to write an array in PLC from my excel data base
below is code
Sub Update()

Dim Test_array_Src() As String

RSlinx = OPENRSlinx()

For x = 0 To 500
realdata = DDERequest(RSlinx, ("Source_array.Test_array_SRC_DINT[" & x & "],L1,C1"))
If TypeName(realdata) = "Error" Then
If MsgBox("Error reading tag Source_array.Test_array_SRC_DINT[" & x & "]. " & "Continue with write?", vbYesNo + vbExclamation, "error") = vbNo Then Exit For
Else
DDEPoke RSlinx, "Source_array.Test_array_SRC_DINT[" & x & "]", Cells(x + 1, 2)
End If
Next x
DDETerminate RSlinx
End Sub
Private Function OPENRSlinx()

On Error Resume Next
OPENRSlinx = DDEInitiate("RSLINX", "My_topic")
If Err.Number <> 0 Then
MsgBox "Error Connecting to topic", vbExclamation, "Error"
OPENRSlinx = 0
End If

End Function





I am getting error in finding tag , it gives error code "Realdata=Error 2023"
Please help

What is the size of the array in the controller ?

Your vba loop is from 0 to 500 - that is 501 elements, not 500

That should not be a problem, as i tried debugging it by going step by step but it shows error in very first step. also i got idea of this code from google, and i don't know abot what L1, C1 stands here.
may be thats where i am wrong, please advise

Sorry size of array is 500, i;ll change it to go from 0 to 499, please advise about L1 and C1

nchahal7 said:

Sorry size of array is 500, i;ll change it to go from 0 to 499, please advise about L1 and C1

Click to expand...

show picture of expanded tag in controller

Checkout this post....

see attached

Start with something easy. Just move one data point. Not an array of 500. Once you understand that then you can expand your function.

It looks like you are copying code from various other topics and websites from several years ago. There is discussion in those threads about L1 and C1.

i tried with one value as well, but every time i am getting same error 2023.

You need to learn a bit more regarding the basic steps in VBA, the code you have postet will not work, you are using tags in you code that is not anisgned

Realdata=Error 2023

No one now what Realdata is, you need to declare it first (Dim)

i did that, still same error

Try rewriting

realdata = DDERequest(RSlinx, ("Source_array.Test_array_SRC_DINT[" & x & "],L1,C1"))

as

realdata = DDERequest(RSlinx, "Source_array.Test_array_SRC_DINT[" & x & "],L1,C1")

I don't know if it will work, but that's the DDERequest format I am successful with.