Ayuda Kepserver
Publicado por Juan (2 intervenciones) el 10/01/2013 22:47:08
Estimados, hace mucho tiempo que solo leo el foro y hoy por fin y debido a una duda me decidi a registrar.
Bueno, estoy tratando de comunicar un S7-300 por excel vía kepserver y solo me funciona una parte.
Cuando escribo de s7-300 kepware me muestras los valores y excel también.
Ahora como lo puedo hacer para escribir en excel y reflejarlo en el PLC?
Encontré esto:
Sub Poke()
channel = Application.DDEInitiate("kepdde", "_ddedata")
Set Value = Worksheets("hoja1").Cells(1, 2)
Application.DDEPoke channel, "channel1.device1.palabra simple", Value
Set Value = Worksheets("hoja1").Cells(2, 2)
Application.DDEPoke channel, "channel1.device1.registro doble word", Value
Application.DDETerminate channel
End Sub
Conseguido desde kepware.com PERO NO ME FUNCIONA,
ALGUIEN QUE ME PUEDA AYUDAR POR FAVOR.
SALUDOS.
Bueno, estoy tratando de comunicar un S7-300 por excel vía kepserver y solo me funciona una parte.
Cuando escribo de s7-300 kepware me muestras los valores y excel también.
Ahora como lo puedo hacer para escribir en excel y reflejarlo en el PLC?
Encontré esto:
Sub Poke()
channel = Application.DDEInitiate("kepdde", "_ddedata")
Set Value = Worksheets("hoja1").Cells(1, 2)
Application.DDEPoke channel, "channel1.device1.palabra simple", Value
Set Value = Worksheets("hoja1").Cells(2, 2)
Application.DDEPoke channel, "channel1.device1.registro doble word", Value
Application.DDETerminate channel
End Sub
Conseguido desde kepware.com PERO NO ME FUNCIONA,
ALGUIEN QUE ME PUEDA AYUDAR POR FAVOR.
SALUDOS.
Valora esta pregunta
0