Как скопировать и вставить данные из SAP в файл Excel, уже сохраненный с VBA? - PullRequest
Новая
       33

Как скопировать и вставить данные из SAP в файл Excel, уже сохраненный с VBA?

0 голосов
/ 27 мая 2019

Когда я завершил транзакцию, мои данные локально отображаются в SAP. Я хотел бы скопировать и вставить все отображаемые данные, а затем вставить их в нужное место с помощью VBA. Я также хотел бы знать, есть ли решение, чтобы при отображении сообщения «Данные не были выбраны» моя программа все равно продолжала работать. 

 Sub FOS()

 If Not IsObject(App) Then
 Set SapGuiAuto = GetObject("SAPGUI")
 Set App = SapGuiAuto.GetScriptingEngine
 End If
 If Not IsObject(Connection) Then
 Set Connection = App.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 = "S_ALR_87011964"
 ...
 session.findById("wnd[0]/usr/chkP_GRID").Selected = True
 session.findById("wnd[0]/usr/ctxtBERDATUM").Text = "31.12.2019"
 session.findById("wnd[0]/usr/ctxtBEREICH1").Text = "01"
 session.findById("wnd[0]/usr/ctxtSRTVR").Text = "Z003"
 session.findById("wnd[0]/usr/chkP_GRID").SetFocus
 session.findById("wnd[0]").sendVKey 2
 session.findById("wnd[0]/tbar[1]/btn[19]").press
 session.findById("wnd[0]/usr/chkPA_XGBAF").Selected = True
 session.findById("wnd[0]/usr/chkPA_XGBAF").SetFocus
 session.findById("wnd[0]/tbar[1]/btn[8]").press

 End Sub

Я бы хотел скопировать и вставить данные из SAP в Excel. Кроме того, иногда моя программа останавливается, когда я получаю сообщение типа «Данные не выбраны».

...