Hallo,
bin neu beim Scripten in SAP
habe mir gestern ein Script von Scriptmann angepasst. Es liest aus ein Exceltabelle 2 Werte (Materialbezeichung EN und CN) ein und legt dann in SAP ein neue Materialnummer an (MM01). Das klappt wunderbar solange die Bezeichnung KEINE Leerzeichen enthält. Dann wird nur der Text bis zum ersten Leerzeichen eingefügt.
Hier mal der Codeschnipsel aus EXCEL
Sub SAP_starten()
Dim WSHShell As Object
Dim eng As String
Dim chn As String
zeile = ActiveCell.Row
eng = Cells(zeile, 2).Value
chn = Cells(zeile, 3).Value
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run """C:\Users\olot\AppData\Roaming\SAP\SAP GUI\Scripts\HIBE Anlage Nantong.vbs""" & " " & eng & " " & chn
Set WSHShell = Nothing
End Sub
und hier der (aufgezeichnete) Scriptteil aus SAP
Eng= wscript.arguments(0)
chn = wscript.arguments(1)
session.findById("wnd[0]").resizeWorkingPane 153,34,false
session.findById("wnd[0]/tbar[1]/btn[30]").press
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU01/ssubTABFRA1:SAPLMGMM:2110/subSUB2:SAPLMGD1:8000/tblSAPLMGD1TC_KTXT/txtSKTEXT-MAKTX[1,0]").text = Eng
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU01/ssubTABFRA1:SAPLMGMM:2110/subSUB2:SAPLMGD1:8000/tblSAPLMGD1TC_KTXT/txtSKTEXT-MAKTX[1,1]").text = chn
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU01/ssubTABFRA1:SAPLMGMM:2110/subSUB2:SAPLMGD1:8000/tblSAPLMGD1TC_KTXT/txtSKTEXT-MAKTX[1,2]").text = Eng
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU01/ssubTABFRA1:SAPLMGMM:2110/subSUB2:SAPLMGD1:8000/tblSAPLMGD1TC_KTXT/txtSKTEXT-MAKTX[1,1]").setFocus
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU01/ssubTABFRA1:SAPLMGMM:2110/subSUB2:SAPLMGD1:8000/tblSAPLMGD1TC_KTXT/txtSKTEXT-MAKTX[1,1]").caretPosition = 0
Hat jemand eine Idee? Ich hätte auch gerne die letzte Materialnummer zurück in Excel (Zwischenablage?)
Danke und Gruß
Michel