Session.findById('wnd/usr/subSUB0:SAPLMEGUI:0010/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/btnEDITFILTER').press Session.findById('wnd/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-EBELN').caretPosition = 10 Session.findById('wnd/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-EBELN').text = COL2 Session.findById('wnd/mbar/menu/menu').select Session.findById('wnd/tbar/okcd').text = 'ME22N' Set application = SapGuiAuto.GetScriptingEngine Set objSheet = ĬOL1 = Trim(CStr(objSheet.Cells(i, 1).Value))ĬOL2 = Trim(CStr(objSheet.Cells(i, 2).Value))ĬO元 = Trim(CStr(objSheet.Cells(i, 3).Value))ĬOL4 = Trim(CStr(objSheet.Cells(i, 4).Value))ĬOL5 = Trim(CStr(objSheet.Cells(i, 5).Value)) Set objExcel = GetObject(,'Excel.Application')

Session.findById('wnd/usr/subSUB_MAIN:/SAPAPO/SAPLMSDP_SDP:0027/cntlSDP_CUSTOM_CONTROL/shellcont/shell/shellcont/shell/shellcont/shell').setCellValue 3,1,'1' 'works, write 1 in my first cell, allows to selection the cell from where I would paste 'copy : done manually at the moment in Excel file (12 columns values) Is there a way to do so or is it definitely impossible ? Set WshShell = WScript.CreateObject('WScript.Shell') Simulate the pasting with Windows VBS doesn't seem to work (however without bugging) with following instructions : Session.findById('wnd').sendVKey 78 doesn't work (error : 'The Virtual Key is not enabled.' + I found here that the function (grayed out) is disabled (consistent with my error message)).

SAP VBS code generator doesn't recognize CTRL+V and doesn't generate any associated code.

Since I have 12*n iterations I would like to improve the code to make program run faster by replacing this one by one value filling by a simple copy paste Excel tab selection into APO tab (same dimensions for reminder). ObjSess.findById('wnd/usr/subSUB_MAIN:/SAPAPO/SAPLMSDP_SDP:0027/cntlSDP_CUSTOM_CONTROL/shellcont/shell/shellcont/shell/shellcont/shell').setCellValue i + horizontal_offset_pb, j + vertical_offset_pb, objSheet.Cells(j + 1, i + 2) I developed a script to load values from an Excel tab (12 columns (12 months), n lines (n=number of references)) to SAP APO (Planning book).Įverything works well with the following code looping on my 12 months and my n lines to declare that APO cell i,j value is equal to Excel value i,j :įor j = 1 To lastreference - vertical_excel_offset

Sap scripting tool excel