Hallo uk,
leider habe ich keinen Zugriff auf die HR Transaktionen und kann daher nicht genau sagen wo das Problem liegt. Ich spiele solche Massenänderungen/anlagen aber immer per gui-scripting (vbs scripte) ein. Voraussetzung ist natürlich, dass ihr das dürft.
Was wäre zu machen.
-> Anlage Stammsatz einmalig aufzeichnen (script recorder)
-> Datei im script festlegen
-> Variablen für jede Spalte im script definierten
-> Aufzeichnung zwischen Anfang und Ende ins script kopieren (ab session.findById("wnd[0]").maximize)
-> im Script die Dateneingaben durch die Variablennamen ersetzen.
Hier das Script:
----- Script Start
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
Set xclapp = CreateObject("Excel.Application")
Set xclwbk = xclapp.Workbooks.Open("C:\Deine_Datei.xlsx")
set xclsht = xclwbk.Sheets("Tabelle1")
for i = 2 to xclapp.ActiveCell.SpecialCells(11).Row
for j = 1 to xclapp.ActiveCell.SpecialCells(11).Column
if j=1 then X_VAR1 = xclsht.Cells(i,j).Value
if j=2 then X_VAR2 = xclsht.Cells(i,j).Value
'ggf um weitere Variablen erweitern
next
'--------Anfang-------
'Beispiel Var: session.findById("wnd[0]/usr/txtGuiXT_X_PSP").text = X_VAR1
'hier den aufgezeichneten Code reinkopieren
'--------Ende---------
next
msgbox "All " & cstr(xclapp.ActiveCell.SpecialCells(11).Row - 1) & " Excel rows have been processed."
Set xclwbk = Nothing
Set xclsht = Nothing
xclapp.Quit
set xclapp = Nothing
----Script Ende
Wie gesagt ich weiß nicht ob das in deinem Anwendungsfall eine Möglichkeit wäre aber wenn dann ist das eine sehr gute Alternative. Benötige im Normalfall 5-10 Minuten für das Aufbereiten des scriptes und dann kann ich soviele Datensätze einspielen wie ich möchte. Erspart sehr viel Arbeit. 😁
mfg
newgui
Bearbeitet vom Benutzer
vor 9 Jahre
|
Grund: Nicht angegeben
