Как запустить IW29 с определенным вариантом и макетом и скопировать его результат в Excel?

Question

Я пытаюсь скопировать результат, полученный при запуске IW29, с определенным вариантом и компоновкой, чтобы добиться превосходства.Я записал скрипт в SAP для запуска IW29 с нужным вариантом и макетом, и он выглядит так:

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
session.findById("wnd[0]/tbar[0]/okcd").text = "iw29"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").currentCellRow = 1
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "1"
session.findById("wnd[1]/tbar[0]/btn[2]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell -1,""
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectAll

Что мне нужно сделать, чтобы скопировать информацию и вставить ее в определенный Excelфайл сейчас?

Спасибо за помощь.

Answer 1

Вы можете попробовать следующее:

...
'session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell -1,""
'session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectAll
set myGrid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell")
myGrid.selectedRows = "0"
myGrid.contextMenu
myGrid.selectContextMenuItem "&XXL"
session.findById("wnd[1]/usr/cmbG_LISTBOX").setFocus
session.findById("wnd[1]/usr/cmbG_LISTBOX").key = "08"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[0,0]").setFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press

А остальное вы получите по ссылке: повторяющийся скрипт, который идет от SAP к Excel и обратно за комментарием: 'ЗаканчиваетсяСохранить часть

С уважением, ScriptMan