基于VBA与SAP GUI Script实现条件化门店订单冻结解除需求咨询

核心调整逻辑 #

• 保留原有批量循环、SAP界面调用的基础逻辑，在执行解锁操作前新增字段校验节点
• 仅当KNA1-AUFSD和KNVV-AUFSD两个字段值均等于03时，才执行后续解锁操作
• 校验不通过时直接在当前行的指定列写入对应异常原因，结束当前行处理跳转下一行

代码修改示例 #

假设你原有代码的结构为遍历Excel行、输入门店编码跳转SAP对应信息页，在执行解锁操作的代码前插入以下校验逻辑即可：

' 此处i为当前循环处理的行号，默认从2开始跳过表头，可根据你的实际逻辑调整
Dim aufsdKna1 As String, aufsdKnvv As String

' 增加异常捕获，避免SAP字段不存在导致程序中断
On Error Resume Next
aufsdKna1 = objSess.findById("wnd[0]/usr/ctxtKNA1-AUFSD").Text
aufsdKnvv = objSess.findById("wnd[0]/usr/ctxtKNVV-AUFSD").Text
On Error GoTo 0

' 字段值校验
If aufsdKna1 = "03" And aufsdKnvv = "03" Then
    ' 此处粘贴你原有执行解锁操作的代码
    ' 解锁完成后更新处理状态，示例中B列1表示处理成功
    Cells(i, "B").Value = "1"
    Cells(i, "C").Value = "解锁成功" ' 结果信息存储在C列，可自行调整列号
Else
    ' 不符合解锁条件，写入错误信息
    Cells(i, "B").Value = "2" ' 2表示处理失败
    Select Case True
        Case aufsdKna1 <> "03" And aufsdKnvv <> "03"
            Cells(i, "C").Value = "失败：KNA1-AUFSD为" & aufsdKna1 & "、KNVV-AUFSD为" & aufsdKnvv & "，均不符合03要求"
        Case aufsdKna1 <> "03"
            Cells(i, "C").Value = "失败：KNA1-AUFSD为" & aufsdKna1 & "，不符合03要求"
        Case Else
            Cells(i, "C").Value = "失败：KNVV-AUFSD为" & aufsdKnvv & "，不符合03要求"
    End Select
End If

' 此处保留你原有跳转下一个门店处理的代码

注意事项 #

• 示例中错误信息默认存储在C列，处理状态标识0=待处理、1=成功、2=失败，可根据你的Excel模板自定义调整
• 异常捕获逻辑可避免SAP界面跳转异常、字段ID变动导致的程序崩溃，你也可以根据需要补充字段不存在的异常提示
• 字段取值直接读取SAP界面显示文本，若你的SAP系统中字段为下拉框且存储值和显示值不一致，可将.Text替换为.Key获取实际存储值

内容的提问来源于stack exchange，提问作者Leace