Hallo Community
Ich muss in über 1400 Arbeitsplänen eine gewisse Position löschen.
Über ein Query konnte ich die Positionen im Arbeitsplan erkennen.
Die Position wird in der CA02 richtig ausgewält, Mülleimer angeclickt, und dann kommt ein Warnfeld, ob ich wirklich löschen möchte.
Dieser ist Standartmässig auf nein gestellt.
Nun meine Frage
Wie kann ich per Script von Nein auf Ja wechseln?
Unten stehend mein Script.
Set MyFile = fso.CreateTextFile(filePath, True)
MyFile.WriteLine ("If Not IsObject(Application) Then")
MyFile.WriteLine ("Set SapGuiAuto = GetObject(""SAPGUI"")")
MyFile.WriteLine ("Set Application = SapGuiAuto.GetScriptingEngine")
MyFile.WriteLine ("End If")
MyFile.WriteLine ("If Not IsObject(Connection) Then")
MyFile.WriteLine ("Set Connection = Application.Children(0)")
MyFile.WriteLine ("End If")
MyFile.WriteLine ("If Not IsObject(session) Then")
MyFile.WriteLine ("Set session = Connection.Children(0)")
MyFile.WriteLine ("End If")
MyFile.WriteLine ("If IsObject(WScript) Then")
MyFile.WriteLine ("WScript.ConnectObject session, ""on""")
MyFile.WriteLine ("WScript.ConnectObject Application, ""on""")
MyFile.WriteLine ("End If")
MyFile.WriteLine ("session.findById(""wnd[0]"").maximize")
MyFile.WriteLine ("session.findById(""wnd[0]/tbar[0]/okcd"").Text = ""/nca02""")
MyFile.WriteLine ("session.findById(""wnd[0]"").sendVKey 0")
For i = 2 To 3
If Trim(Range("A" & i)) <> "" Then
MyFile.WriteLine ("session.findById(""wnd[0]/usr/ctxtRC27M-MATNR"").Text = """ & Range("B" & i) & """")
MyFile.WriteLine ("session.findById(""wnd[0]/usr/ctxtRC27M-WERKS"").Text = ""1000""")
MyFile.WriteLine ("session.findById(""wnd[0]/usr/ctxtRC27M-WERKS"").setFocus")
MyFile.WriteLine ("session.findById(""wnd[0]/usr/ctxtRC27M-WERKS"").caretPosition = 4")
MyFile.WriteLine ("session.findById(""wnd[0]"").sendVKey 0")
MyFile.WriteLine ("session.findById(""wnd[0]/usr/tblSAPLCPDITCTRL_1400/txtPLPOD-VORNR[0," & Range("K" & i) & "]"").SetFocus ")
MyFile.WriteLine ("session.findById(""wnd[0]/usr/tblSAPLCPDITCTRL_1400/txtPLPOD-VORNR[0," & Range("K" & i) & "]"").caretPosition = 0")
MyFile.WriteLine ("session.findById(""wnd[0]/tbar[1]/btn[14]"").press")
MyFile.WriteLine ("session.findById(""wnd[1]/usr/btnSPOP-OPTION1"").press")
MyFile.WriteLine ("session.findById(""wnd[0]"").sendVKey 11 ")
Vielen Dank
Freundliche Grüsse
Johny