如何将数据从 SAP 复制并粘贴到 Excel 中？

Question

我保存了脚本并将其连接到 VBA，然后我想将本地 SAP 数据复制到外部 Excel 文件中。

 Sub FOS()
 If Not IsObject(App) Then
 Set SapGuiAuto = GetObject("SAPGUI")
 Set App = SapGuiAuto.GetScriptingEngine
 End If
 ...
 session.findById("wnd[0]").maximize
 session.findById("wnd[0]/tbar[0]/okcd").Text = "S_ALR_87011964"
 ...
 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()

我想自动化提取，从而复制我的数据并将它们传输到一个非常具体的 Excel 文件，这要归功于 VBA 宏。

Answer 1

选择 ALV 网格控件后，您可以尝试以下操作。

例如：

...
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[31]").press

'for the German SAP version
'SAP_Workbook = "Tabelle von ALV (1)"

'for the English SAP version (?)
SAP_Workbook = "Worksheet in ALVXXL01 (1)"

EXCEL_Path = "c:\tmp\"
myWorkbook = "Report.xlsx"

Set xclwbk = Application.Workbooks.Item(SAP_Workbook)

Application.Visible = True
Application.DisplayAlerts = False

xclwbk.SaveAs Filename:=EXCEL_Path & myWorkbook, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Set xclwbk = Nothing
'Application.Wait (Now + TimeValue("0:00:02"))
session.findById("wnd[0]/tbar[0]/btn[3]").press
Application.DisplayAlerts = True
...
End Sub

问候，脚本人