Извлечение текста заказа клиента SAP в Excel

Question

Извлечение текста заказа клиента SAP в Excel

В течение многих лет я работал с ERP-системой, с которой я мог легко добраться до каждого уголка и получить данные, но теперь мы перешли к глобальной системе SAP, и с гораздо более низким уровнем доступа все не так просто. У меня есть особое требование для извлечения данных из некоторых текстовых полей позиции заказа на продажу; потому что они зашифрованы и поскольку я ограничен SQVI, это не может быть сделано напрямую. Я попытался записать сценарий для извлечения данных с помощью транзакции VA03 и обнаружил, что, как и у всех остальных, жизненно важные части сохранения в виде локального файла не записываются. Я нашел очень полезную запись в заархивированных дискуссиях SAP, https://archive.sap.com/discussions/thread/3240622 в которой была решена эта проблема, и мне удалось сохранить текст заголовка в Excel, внеся некоторые тривиальные изменения в подойдет нашей конфигурации.

Sub Macro1()
'
' Macro1 Macro
'


If Not IsObject(sap) Then

   Set SapGuiAuto = GetObject("SAPGUI")

   Set sap = SapGuiAuto.GetScriptingEngine

End If

If Not IsObject(Connection) Then

   Set Connection = sap.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 sap, "on"

End If

session.findById("wnd[0]").resizeWorkingPane 167, 31, False

session.findById("wnd[0]/tbar[0]/okcd").Text = "/nva03"

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/ctxtVBAK-VBELN").Text = "nnnnnn"

session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/btnBT_HEAD").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09").Select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").selectItem "Z005", "Column1"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").ensureVisibleHorizontalItem "Z005", "Column1"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").doubleClickItem "Z005", "Column1"

Cells(1, 1) = session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\08/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").Text

session.findById("wnd[0]/tbar[0]/btn[3]").press
End Sub

Это работает (номер заказа был исключен как nnnnnn в крайне маловероятном случае, когда кто-то может его распознать), и я смог получить данные из других полей, добавив строки, но когда я попытался сделать то же самое для элемента текст с вариацией ниже

ub Macro1()
'
' Macro1 Macro
'


If Not IsObject(sap) Then

   Set SapGuiAuto = GetObject("SAPGUI")

   Set sap = SapGuiAuto.GetScriptingEngine

End If

If Not IsObject(Connection) Then

   Set Connection = sap.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 sap, "on"

End If

session.findById("wnd[0]").resizeWorkingPane 167, 31, False

session.findById("wnd[0]/tbar[0]/okcd").Text = "/nva03"

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/ctxtVBAK-VBELN").Text = "nnnnnn"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\01/ssubSUBSCREEN_BODY:SAPMV45A:4400/subSUBSCREEN_TC:SAPMV45A:4900/subSUBSCREEN_BUTTONS:SAPMV45A:4050/btnBT_POPO").press
session.findById("wnd[1]/usr/txtRV45A-POSNR").Text = "351"
session.findById("wnd[1]/usr/txtRV45A-POSNR").caretPosition = 3
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\01/ssubSUBSCREEN_BODY:SAPMV45A:4400/subSUBSCREEN_TC:SAPMV45A:4900/subSUBSCREEN_BUTTONS:SAPMV45A:4050/btnBT_PKON").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09").Select
' Texts is 9th tab - this leaves cursor on first text line, next line moves to Customer tags, but doesn't show content, which only shows on doubleClickItem "Z102" line
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").selectItem "Z102", "Column1"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").ensureVisibleHorizontalItem "Z102", "Column1"
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").doubleClickItem "Z102", "Column1"

Cells(1, 1) = session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").Text


session.findById("wnd[0]/tbar[0]/btn[3]").press
End Sub

Это вызывает обязательные поля на экране SAP, но затем выдает ошибку "Ошибка во время выполнения" 619 "Не удалось найти элемент управления с идентификатором".

Я явно не понимаю всего, что происходит - кто-нибудь может мне помочь, пожалуйста?

Эндрю

1

excel vba excel-vba sap-gui

Источник

user9664666 18 апр '18 в 14:42

1 ответ

Другие вопросы по тегам excel vba excel-vba sap-gui

user4523059 19 апр '18 в 06:37 2018-04-19 06:37 · Answer 1 · 2018-04-19 06:37

К сожалению, у меня нет доступа к транзакции VA03. Но если все команды были фактически записаны программой записи сценариев, то я могу представить, что данные не готовы, когда они запрашиваются. И поэтому, возможно, небольшой перерыв может быть решением.

например:

...
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").doubleClickItem "Z102", "Column1"
waitTill = Now() + TimeValue("00:00:01")
While Now() < waitTill
  DoEvents
Wend

Cells(1, 1) = session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").Text
...

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