kpeter
Level-1
- Beiträge
- 693
- Reaktionspunkte
- 26
-> Hier kostenlos registrieren
Guten Morgen allerseits
ich hätte da mal eine frage an euch opc spezis
ich habe eine komminikation für excel geschrieben die eigentlich funktioniert wenn ich zahlen schreibe
ab denn zeitpunkt wo ich Strings schreibe gehts nicht mehr ( Laufzeitfehler / Automatesierungsfehler / unbekannter fehler )
ich weiss das ich denn wald voller bäume nicht mehr sehe
wehr kann mir mal einen kleinen tipp geben
Einlesen kann ich alles auch die Strings
so hier der code
Ja ich weis das es keine Siemens Steuerung ist.
ich hätte da mal eine frage an euch opc spezis
ich habe eine komminikation für excel geschrieben die eigentlich funktioniert wenn ich zahlen schreibe
ab denn zeitpunkt wo ich Strings schreibe gehts nicht mehr ( Laufzeitfehler / Automatesierungsfehler / unbekannter fehler )
ich weiss das ich denn wald voller bäume nicht mehr sehe
wehr kann mir mal einen kleinen tipp geben
Einlesen kann ich alles auch die Strings
so hier der code
Code:
Dim S_NODE As String
S_NODE = "[KZW_DO2]"
'On Error GoTo ErrorHandler
'Exit Sub
Set ServerObj = CreateObject("OPC.Automation.1") ' Server Objekt erzeugen
ServerObj.Connect "RSLinx OPC Server" ' Server connect erzeugen
Set Groupobj = ServerObj.OPCGroups.Add("CLX_Schreiben")
Groupobj.IsActive = True ' Aktivieren
i_nummer = UserForm1.CB_Anummer.Value
Set ItemObj = Groupobj.OPCItems.AddItem(S_NODE & "ANTRIEBE[" & i_nummer & "].LFZ", 1)
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].EZV", 1
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].ZEIT", 1
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].DZWZ", 1
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].INenn", 1
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].GPNR", 1
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].Motornr", 1
Groupobj.OPCItems.AddItem S_NODE & "ANTRIEBE[" & i_nummer & "].bezeich1", 1
Groupobj.OPCItems.Item(1).Write (UserForm1.tb_lvz.Value)
Groupobj.OPCItems.Item(2).Write (UserForm1.tb_evz.Value)
Groupobj.OPCItems.Item(3).Write (UserForm1.tb_zeit.Value)
Groupobj.OPCItems.Item(4).Write (UserForm1.tb_dzwz.Value)
Groupobj.OPCItems.Item(5).Write (UserForm1.tb_inenn.Value)
Groupobj.OPCItems.Item(6).Write (UserForm1.tb_gnummer.Value)
[U] Groupobj.OPCItems.Item(7).Write (UserForm1.TB_Name.Value) [B]' die sind die bösen strings
[/B] Groupobj.OPCItems.Item(8).Write (UserForm1.tb_nummer)[/U]
ErrorHandler:
On Error Resume Next
Set ItemObj = Nothing
ServerObj.OPCGroups.RemoveAll
Set Groupobj = Nothing
ServerObj.Disconnect
Set ServerObj = Nothing
Exit Sub
End Sub
Ja ich weis das es keine Siemens Steuerung ist.