0

如何使用 VBA 宏将数据从 SAP NetWeaver 提取到 Excel 中？

我有一个 SAP 系统中的数据，可以通过 SAP GUI 在几个不同的事务中访问。我需要每天提取这些数据，然后将其格式化为 Excel 电子表格和报告。手动提取这些数据非常耗时且容易出错。

我没有开发人员或系统支持。作为非特权用户，我必须自己能够做到这一点。

4

1 回答 1

2

这是从我的回答中复制的：https ://stackoverflow.com/a/19456656/2250183

这一切都取决于您对 SAP 系统拥有何种访问权限。导出数据的 ABAP 程序和/或宏可以调用以直接获取数据或让 SAP 创建文件的 RFC 可能是最好的。

然而，作为一般规则，寻找此类答案的人们正在寻找一种直接的解决方案，该解决方案不需要他们的 IT 部门花费数月时间来定制他们的 SAP 系统。

在这种情况下，您可能想要使用 SAP GUI Scripting。SAP GUI 脚本允许您以与自动化 Excel 大致相同的方式自动化 Windows SAP GUI。事实上，您可以直接从 Excel 宏调用 SAP GUI。在这里阅读更多。SAP GUI 具有与 Excel 类似的宏记录工具。它用VBScript记录宏，几乎与Excel VBA相同，通常可以直接复制粘贴到Excel宏中。

示例代码

这是一个基于我可以访问的 SAP 系统的简单示例。

Public Sub SimpleSAPExport()
  Set SapGuiAuto  = GetObject("SAPGUI") 'Get the SAP GUI Scripting object
  Set SAPApp = SapGuiAuto.GetScriptingEngine 'Get the currently running SAP GUI 
  Set SAPCon = SAPApp.Children(0) 'Get the first system that is currently connected
  Set session = SAPCon.Children(0) 'Get the first session (window) on that connection

  'Start the transaction to view a table
  session.StartTransaction "SE16"

  'Select table T001
  session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").Text = "T001"
  session.findById("wnd[0]/tbar[1]/btn[7]").Press

  'Set our selection criteria
  session.findById("wnd[0]/usr/txtMAX_SEL").text = "2"
  session.findById("wnd[0]/tbar[1]/btn[8]").press

  'Click the export to file button
  session.findById("wnd[0]/tbar[1]/btn[45]").press

  'Choose the export format
  session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select
  session.findById("wnd[1]/tbar[0]/btn[0]").press

  'Choose the export filename
  session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "test.txt"
  session.findById("wnd[1]/usr/ctxtDY_PATH").text = "C:\Temp\"

  'Export the file
  session.findById("wnd[1]/tbar[0]/btn[0]").press
End Sub

脚本录制

为了帮助查找元素的名称等，wnd[1]/tbar[0]/btn[0]您可以使用脚本记录。点击自定义本地布局按钮，大概看起来有点像： 自定义本地布局
然后找到脚本录制和播放菜单项。
脚本录制和播放
在该More按钮中，您可以查看/更改记录 VB 脚本的文件。输出格式有点乱，它记录了选择文本、单击文本字段等内容。

编辑：早期和晚期绑定

如果直接复制到 VBA 宏中，提供的脚本应该可以工作。它使用后期绑定，该行Set SapGuiAuto = GetObject("SAPGUI")定义了 SapGuiAuto 对象。

但是，如果您想使用早期绑定以便您的 VBA 编辑器可以显示您正在使用的对象的属性和方法，您需要sapfewse.ocx在 SAP GUI 安装文件夹中添加对的引用。

于 2016-01-31T20:00:47.523 回答