VBA与SAP的结合，如何报错循环且返回错误信息

starnew88

群里大师：
如图，我用exel模板数据上传至sap系统（附件是申请pr，代码是：ME51N），如图显示第二行物料料号不存在，则录入时sap报错，不能跳过错误执行第三行，现想：返回当行是否成功/失败信息且跳到第三行继续执行，看群里有无接触到sap语言与vba语言的连接用法，谢谢

starnew88

都没人看？什么情况

jiaxinl

starnew88 发表于 2024-7-8 09:36
都没人看？什么情况

可以用这个模板

jiaxinl

可以这样改写一下

1. Sub 建立钢料pr()
   
2. 
   
3. '忽略错误
   
4. On Error Resume Next
   
5. 
   
6. '从excel模板数量建立到sap pr数量，下面为sap录屏脚本，使用excel中的变量且循环
   
7. 
   
8. If Not IsObject(Applicationa) Then
   
9.    Set SapGuiAuto = GetObject("SAPGUI")
   
10.    Set Applicationa = SapGuiAuto.GetScriptingEngine
    
11. End If
    
12. If Not IsObject(Connection) Then
    
13.    Set Connection = Applicationa.Children(0)
    
14. End If
    
15. If Not IsObject(SessionB) Then
    
16.    Set SessionB = Connection.Children(0)
    
17. End If
    
18. If IsObject(WScript) Then
    
19.    WScript.ConnectObject SessionB, "on"
    
20.    WScript.ConnectObject Applicationa, "on"
    
21. End If
    
22. 
    
23. Row = Application.CountA(ActiveSheet.Range("F:F"))
    
24. '
    
25.   For I = 2 To Row
    
26.     If Cells(I, 6) = "" Then
    
27.     Exit Sub
    
28.   Else
    
29.     With SessionB
    
30.         .findById("wnd[0]").maximize
    
31.         .findById("wnd[0]/tbar[0]/okcd").Text = "/nME51N"
    
32.         .findById("wnd[0]").sendVKey 0
    
33.         
    
34.         .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0016/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:3212/cntlGRIDCONTROL/shellcont/shell").modifyCell 0, "MATNR", Cells(I, 6)
    
35.         .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0016/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:3212/cntlGRIDCONTROL/shellcont/shell").modifyCell 0, "MENGE", Cells(I, 8)
    
36.         .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0016/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:3212/cntlGRIDCONTROL/shellcont/shell").modifyCell 0, "EEIND", Cells(I, 11)
    
37.         .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0016/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:3212/cntlGRIDCONTROL/shellcont/shell").modifyCell 0, "EKGRP", Cells(I, 15)
    
38.         .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0016/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:3212/cntlGRIDCONTROL/shellcont/shell").modifyCell 0, "FLIEF", Cells(I, 19)
    
39.    
    
40.         .findById("wnd[0]").sendVKey 0
    
41.         str_text = .findById("wnd[0]/sbar").Text '状态栏消息文本
    
42.         
    
43.         If str_text Like "" Then '返回是否成功消息
    
44.             .findById("wnd[0]/tbar[0]/btn[11]").press
    
45.              ActiveSheet.Cells(I, 22).Value = .findById("wnd[0]/sbar").Text
    
46.             .findById("wnd[0]/tbar[0]/btn[3]").press
    
47.         Else
    
48.             ActiveSheet.Cells(I, 22).Value = .findById("wnd[0]/sbar").Text
    
49.         End If
    
50.     End With
    
51.   End If
    
52. Next I
    
53. 
    
54. On Error GoTo 0
    
55. 
    
56. MsgBox "建立完成,请完成后续作业"
    
57. 
    
58. End Sub

复制代码

starnew88

谢谢老师，您的代码还是出错，而且错在哪我都不知道，我看数据都没问题，见图！

我昨天自已琢磨做好了，我的思路很简单，不管是件号报错，还是日期报错，还是其它几个关键字报错，我都在它报错后加一个判断，像这个pr报错会弹出来一个画面，然后我录屏一个关闭错误的动作加入到报错中，关闭然后返回就好了。按同种思路别的报错也搞成功了，只是比较笨的办法，谢谢老师
辛苦了！

starnew88

jiaxinl 发表于 2024-7-9 15:08
可以用这个模板

这个模板好像帮助不大，对于我来说，可能是我英文不太好的原因吧

jiaxinl

starnew88 发表于 2024-7-10 15:09
这个模板好像帮助不大，对于我来说，可能是我英文不太好的原因吧

模板其实跟录屏差不多