Rockwell Automation 1404-M4_M5_M6_M8 Powermonitor 3000 User Manual, Firmware rev. 3.0 or LATER - Manual (Page 295)

Publication 1404-UM001F-EN-P - November 2009 295
Sample Applications Appendix C
The range Sheet1!D7:D14 is the write source range and the read target
range. The Read graphic element is associated with the following VBA
script or macro.
Sub ReadDateAndTime()
'Open DDE link; the first argument is the application we
'want to DDE with. Second argument is the DDE topic name
'configured in RSLinx
RSIchan = DDEInitiate(“RSLINX”, “DF1_1404_123”)
'Read the date/time table from the PM3000 and put it in
'the excel sheet
Range(“Sheet1!D7:D14”) = DDERequest(RSIchan, “N11:0,L8”)
'Close DDE link
DDETerminate (RSIchan)
End Sub
The Write graphic element is associated with the following VBA script.
Sub WriteDateAndTime()
'Open DDE link
RSIchan = DDEInitiate(“RSLINX”, “DF1_1404_123”)
'Write data from the excel sheet into the PM3000
DDEPoke RSIchan, “N11:0,L8”, Range(“Sheet1!D7:D14”)
'Close DDE link
DDETerminate (RSIchan)
End Sub
To read the date and time from the power monitor, click the Read
graphic element. To write the data and time to the power monitor,
enter the desired data and time into the worksheet along with the
power monitor password (default = 0) and click the Write graphic
element.
Use OPC for Single Element Password Write
First, create an OPC topic that points to your power monitor. In the
OPC client, add the single password write parameter item with
address N60:0, along with any other parameters that you want to
write. Right click the single password write ItemID, and then select
’Sync Write.’ Enter your power monitor password (Default password =
0). You now have 30 minutes to write values to your other writeable
parameters. Your write session will expire when idle for durations
longer than 30 minutes.