通过EXCEL宏和SAPScript进行批量业务处理汇编.docxVIP

通过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 EndEnd IfRange(Z1).Value = =COUNTA(A:A): TEMP = Range(Z1).Value: Range(Z1).Value = On Error GoToNotLoggedOnSAP:Set SapGuiAuto = GetObject(SAPGUI) Get the SAP GUI Scripting objectSet SapApplication = SapGuiAuto.GetScriptingEngine Get the currently running SAP GUISet SapConnection = SapApplication.Children(0) Get the first system that is currently connectedSet session = SapConnection.Children(0) Get the first session (window) on that connectionGoTo 10:NotLoggedOnSAP: x = MsgBox(You are not logged on SAP. Please log on and try again., vbOKOnly, Not Logged on SAP) Exit SubOn Error GoTo 010 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.GetScriptingEngineEnd IfIf Not IsObject(Connection) Then Set SapConnection = SapApplication.Children(0)End IfIf Not IsObject(session) Then Set session = SapConnection.Children(0)End IfIf IsObject(WScript) ThenWScript.ConnectObject session, onWScript.ConnectObject Application, onEnd Ifsession.findById(wnd[0]).maximizesession.findById(wnd[0]/tbar[0]/okcd).Text = /nmm02session.findById(wnd[0]).sen