-> Hier kostenlos registrieren
Hallo sehr geehrtes SPS-Forum,
Ich benötige dringend Hilfe. Ich schreibe momentan eine Facharbeit über eine SPS-Excel-Verbindung und bekomme es nicht hin.
Ich bin unerfahren in dieser Thematik.
Benutzt wird eine CPU313C mit CP343-1, diese ist angeschlossen mit einem PC, wo SimaticNet Softnet S7 Lean und Excel2003 installiert ist.
Nun möchte ich in die
Zelle „A1“=CHAR0 ; Zelle „A2“=CHAR1; usw. schreiben.
Nun habe ich 3.Probleme.
1.
Mit dem eingegebenen VBA-Code bekomme ich keine Werte in meine Zelle geschrieben und schlimmer es gibt ein Fehler:
Mein VBA-Programm:
3. Ich möchte in Excel ein
Button haben, der mir ein BOOL Signal zur SPS schickt.
Danke für eure Hilfe im Voraus!!!
Mit freundlichen Grüßen
Bro
Ich benötige dringend Hilfe. Ich schreibe momentan eine Facharbeit über eine SPS-Excel-Verbindung und bekomme es nicht hin.
Ich bin unerfahren in dieser Thematik.
Benutzt wird eine CPU313C mit CP343-1, diese ist angeschlossen mit einem PC, wo SimaticNet Softnet S7 Lean und Excel2003 installiert ist.
Nun möchte ich in die
Zelle „A1“=CHAR0 ; Zelle „A2“=CHAR1; usw. schreiben.
Nun habe ich 3.Probleme.
1.
Mit dem eingegebenen VBA-Code bekomme ich keine Werte in meine Zelle geschrieben und schlimmer es gibt ein Fehler:
Ich habe den Siemens OPC DAAuutomation 2.0 zugewiesen und über OPC Data Control funktioniert es, über ein Label das CHAR einzulesen und mit Caption in eine Zelle zu schreiben.LAUFZEITFEHLER –„1073479673 (c0040007)“
Die Methode „AddItem“ für das Objekt „OPCItem“ ist fehlgeschlagen
Mein VBA-Programm:
2. Zu jedem CHAR Wert soll der passende Zeitstempel der SPS stehen, also in Zelle „B1“=DT0...Option Explicit
Option Base 1
Private ServerObj As OPCServer
Private WithEvents GroupObj As OPCGroup
Private GroupColl As OPCGroups
Private ItemObj1 As OPCItem
Private ItemObj2 As OPCItem
Private ItemObj3 As OPCItem
Private ItemObj4 As OPCItem
Private ItemColl As OPCItems
'--------------------------------------------------------------------
Private Sub CommandButton1_Click()
Set ServerObj = New OPCServer
ServerObj.Connect ("OPC.SimaticNet")
Set GroupColl = ServerObj.OPCGroups
Set GroupObj = GroupColl.Add("MyGroup")
GroupObj.IsSubscribed = True
GroupObj.UpdateRate = CLng(Cells(5, 5))
Set ItemColl = GroupObj.OPCItems
Set ItemObj1 = ItemColl.AddItem("S7:[S7-Verbindung_1]DB2.CHAR0", 1)
ItemObj1.Write CLng(Cells(1, 1))
Set ItemObj2 = ItemColl.AddItem("S7:[S7-Verbindung_1]DB2.CHAR1", 1)
ItemObj1.Write CLng(Cells(1, 2))
Set ItemObj3 = ItemColl.AddItem("S7:[S7-Verbindung_1]DB1.DT0", 2)
ItemObj1.Write CLng(Cells(2, 1))
Set ItemObj4 = ItemColl.AddItem("S7:[S7-Verbindung_1]DB1.DT0", 2)
ItemObj1.Write CLng(Cells(2, 2))
End Sub
'--------------------------------------------------------------------
Private Sub CommandButton2_Click()
'Das soll der Button sein der in der SPS etwas Reseten soll. Ein einfaches BOOL Signal.
End Sub
3. Ich möchte in Excel ein
Button haben, der mir ein BOOL Signal zur SPS schickt.
Danke für eure Hilfe im Voraus!!!
Mit freundlichen Grüßen
Bro