SAP Jobsuche bei DV-Treff
dboeck66
  • dboeck66
  • SAP Forum - Neuling Thema Starter
vor 7 Jahre
Hallo SAP-Gemeinde,

benötige Hilfe beim auslesen von Einkaufbestelltexten von SAP nach Excel:

Formatierung bzw. Zeilenumbruch fehlerhaft, Transaktion MM03

fehlerhafte Darstellung in Excel:

KCL Industriehandschuhe Gr.: 11Art.Nr.: 110

mit korrektem Zeilenumbruch in SAP

KCL Handschuhe Gr.: 11

Art.Nr.: 110

Code:

'Einkaufsbestelltext

session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP11").Select

'Einkaufsbestelltext markieren

session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2010/subSUB2:SAPLMGD1:2321/cntlLONGTEXT_BESTELL/shellcont/shell").setSelectionIndexes 0, 3000

'Einkaufsbestelltext nach Excel kopieren

Einkaufsbestelltext_DE = session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2010/subSUB2:SAPLMGD1:2321/cntlLONGTEXT_BESTELL/shellcont/shell").Text

Cells(i, 5).Value = Einkaufsbestelltext_DE 'Column

vorab vielen Dank

freundliche Grüße Dietmar

Förderer

Alpmann
vor 7 Jahre
Hallo Dietmar,

wir lesen auch regelmäßig Texte aus dem Materialstamm. Dies machen wir allerdings über Access und rufen von dort den Funktionsbaustein RFC_READ_TEXT auf. Da haben wir mit Zeilenumbrüchen keine Probleme.

GuiXT nutzen wir nicht - deswegen kann ich dir - zumindest bei deinem jetzigen Weg - nicht weiterhelfen.

Mit freundlichen Grüßen

Matthias Alpmann

dboeck66
  • dboeck66
  • SAP Forum - Neuling Thema Starter
vor 7 Jahre
Hallo Matthias,

vielen Dank für die Rückmeldung. Hierzu habe ich leider keine Berechtigung, deswegen der Umweg über Excel und SAP Script.

freundliche Grüße

Dietmar

ScriptMan
vor 7 Jahre
Hallo Dietmar,

die Eingeweihten wissen, dass es sich hier nicht um GuiXT sondern nur um SAP GUI Scripting handelt.

Mein Lösungsvorschlag:


    ...
    Einkaufsbestelltext_DE = session.findById("wnd[0]/usr/tabsTABSPR1/tabpSP11/ssubTABFRA1:SAPLMGMM:2010/subSUB2:SAPLMGD1:2321/cntlLONGTEXT_BESTELL/shellcont/shell").Text
    '------------------------------------------------------------------
    Einkaufsbestelltext_DE = replace(Einkaufsbestelltext_DE,vbCR, vbLF)
    '------------------------------------------------------------------
    Cells(i, 5).Value = Einkaufsbestelltext_DE 'Column
    ...
    

Grüße,

ScriptMan

dboeck66
  • dboeck66
  • SAP Forum - Neuling Thema Starter
vor 7 Jahre
Hallo ScriptMan,

dein Lösungsvorschlag funktioniert perfekt, vielen DANK!!

freundliche Grüße

Dietmar

👍