Messwert per LAN auslesen
23.05.2020 17:58:55
David
ich habe das Problem das ich einen Messwert von einem Messgerät auslesen möchte und in Excel eintrag will.
Mein Code funktioniert schon soweit, das ich das Messgerät ansprechen kann und dieses den Messwert laut Wireshark zurückliefert. Jedoch wird der Messwert nicht in die gewünschte Excel Cell geschrieben.
Hier mal der Code Auszug:
Sub auslesen_Messwert()
viClose vi
viClose defaultRM
status = viOpenDefaultRM(defaultRM)
'open default resource manager
status = viOpen(defaultRM, "TCPIP::10.10.10.10", 0, 0, vi)
'in case of USB connection
cmd = ":READ:CHPower:CHPower?"
status = viWrite(vi, cmd, 22, retCount)
cmd = ":READ:CHPower:CHPower?"
status = viRead(vi, xxxxx, 1024, retCount)
Range("A3").Value = xxxxx
raus:
End Sub
Hat vielleicht jemand einen Tip wo mein Fehler ist.
Danke
David