通过EXCEL宏和SAP Script进行批量业务处理.docx

通过EXCEL宏和SAP Script进行批量业务处理 SAP提供了很多批量导入的工具，但问题是一般情况下不会赋予普通用户这些权限，因此我结合EXCEL VBA和SAP Script功能整理出一个简易的批量业务处理方式，供大家参考 使用SAP Script Recording功能录制SAP操作，生成代码块 激活SAP Script Recording 选择存放路径和script代码块文件名称 点击开始录制SAP操作，建议以”/N”+事务代码，以保存为结尾。生成如下程序代码文件，可以用文本编辑器打开 通过EXCEL VBA编写宏代码，用于读取数据模板和导入SAP 进入VBA编辑视图 复制Script代码块中的代码，并做以下适当修改： 在两个Application 和 Connection 之前加入SAP 修改录制中的固定值，改为模板中的相应字段，如 Range(A I).Value等 如有更为复杂的数据处理需求，可以在宏代码中加入适当的判断或者循环语句 以下代码用于修改物料主数据的，前段和末端代码???以沿用，只需用script代码覆盖病修改中段原代码即可。供参考。 Sub EXCEL_to_SAP() yes_No = MsgBox(Do you want to upload data into SAP really?, vbOKCancel) If yes_No = 2 Then End End If Range(Z1).Value = =COUNTA(A:A): TEMP = Range(Z1).Value: Range(Z1).Value = On Error GoTo NotLoggedOnSAP: Set SapGuiAuto = GetObject(SAPGUI) Get the SAP GUI Scripting object Set SapApplication = SapGuiAuto.GetScriptingEngine Get the currently running SAP GUI Set SapConnection = SapApplication.Children(0) Get the first system that is currently connected Set session = SapConnection.Children(0) Get the first session (window) on that connection GoTo 10: NotLoggedOnSAP: x = MsgBox(You are not logged on SAP. Please log on and try again., vbOKOnly, Not Logged on SAP) Exit Sub On Error GoTo 0 10 If TEMP 1 Then For I = 2 To TEMP ********************** 1. copy from scrip ********************** 2. add SAP before 2 Application and 2 Connection in next 10 lines ********************** 3. change fixed value by fields value, refer to - Range(A I).Value - If Not IsObject(Application) Then Set SapGuiAuto = GetObject(SAPGUI) Set SapApplication = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set SapConnection = SapApplication.Children(0) End If If Not IsObject(session) Then Set session = SapConnection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject session, on WScript.ConnectObject Application, on End If session.findById(wnd[0]).maximize session.