如何将数据从SAP复制和粘贴到已用VBA保存的Excel文件中？

Question

完成交易后，我的数据将在本地显示在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。 另外，有时当我收到诸如“未选择数据”之类的消息时，程序会停止。