Daten aus Zwischenablage in anderes System einfüge
19.06.2018 17:16:27
Sina
ich benötige Hilfe bei folgendem Problem:
Ich erstelle in Excel eine Liste mit Aufträgen.
Diese kopiere ich und möchte Sie in SAP in eine Transaktion einfügen.
Dies funktioniert, solange ich manuell im Haltemodus meinen Code durchklicke.
(Manchmal auch automatisch, aber das ist dann eher Zufall :) )
Sobald ich den Code automatisiert ohne Haltepunkt nach dem Kopieren durchlaufen lasse, verschwinden irgendwie die Daten aus der Zwischenablage :(
Hier mein Code, der die Aufträge aus Spalte A kopieren soll:
Sub Aufträge_kopieren()
'Aufträge kopieren
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Windows("Waschmaschinenmonitor.xlsm").Activate
Sheets("Aufträge WaMa").Select
Columns("A:A").Copy
End Sub
Diesen habe ich eingebettet in die SAP starten Transaktion bei i=2:
Sub SAPStarten(i As Integer)
Set wshell = CreateObject("Wscript.Shell")
If i = 1 Then
wshell.Run "C:\progra~2\sap\frontend\sapgui\guixt.exe" & " Input=" & Chr(34) & "OK: process= _
_
" & cnst_Pfad & "SAP Scripte\" & "coois_Vorgaenge.txt" & Chr(34)
ElseIf i = 2 Then
Aufträge_kopieren
wshell.Run "C:\progra~2\sap\frontend\sapgui\guixt.exe" & " Input=" & Chr(34) & "OK: process= _
_
" & cnst_Pfad & "SAP Scripte\" & "coois_Auftragsköpfe.txt" & Chr(34)
ElseIf i = 3 Then
wshell.Run "C:\progra~2\sap\frontend\sapgui\guixt.exe" & " Input=" & Chr(34) & "OK: process= _
_
" & cnst_Pfad & "SAP Scripte\" & "offeneTAs.txt" & Chr(34)
End If
End Sub
Viele Grüße
Sina