IBM iSeries/AS400绿屏环境VBA宏循环未按预期退出问题求助

看起来你遇到的核心问题是：明明目标物料号就在采购订单第一行，但循环不仅不退出，还会跑到翻页逻辑里——这确实是循环的退出条件和执行顺序出了问题，我来帮你拆解和修正：

问题出在哪？ #

1. 循环判断时机错了
   你的Do Until IBMItemNum = ItemNum是先跑循环体，再判断退出条件。但第一次进入循环时，IBMItemNum还没被赋值（要么是空，要么是之前运行残留的旧值），这就导致循环会先执行一轮甚至多轮，直到你获取到第一行的物料号后，才会开始判断是否匹配。

2. 翻页触发条件逻辑错误
   你说订单每页有10行，但代码里判断NumRow = 11才翻页——这意味着当行号走到11的时候才会触发翻页，但实际上第10行是最后一行，处理完第10行就该翻页了，行号11本身是不存在的，这也会导致循环多跑一次。

3. 找到匹配后的退出不及时
   就算找到了目标行，你是先处理价格，再Exit Do，但如果之前的循环已经触发了翻页逻辑（比如行号走到11），那翻页操作已经发出去了，这就会导致退出PO后还执行翻页，直接崩会话。

修正后的完整代码 #

' ItemNum and Price are entered by the user within Excel
Dim NumRow As Integer
Dim IBMItemNum As String
NumRow = 1 ' 初始化行号为第一行
IBMItemNum = "" ' 初始化物料号变量，避免残留值干扰

Do
    ' 先获取当前行的物料号，再判断是否匹配
    IBMItemNum = autECLSession.autECLPS.GetText(NumRow, 2, 5)
    
    ' 找到目标物料号，执行修改并立即退出循环
    If IBMItemNum = ItemNum Then
        autECLSession.autECLPS.SetCursorPos NumRow, 66
        autECLSession.autECLPS.SendKeys Price
        autECLSession.autECLPS.SendKeys "[field+]"
        autECLSession.autECLPS.SendKeys "[enter]"
        Exit Do ' 这里一定要立即退出，别让后面的翻页逻辑跑起来
    End If
    
    ' 没找到的情况下，处理翻页或行号递增
    If NumRow = 10 Then ' 第10行是当前页最后一行，处理完翻页
        autECLSession.autECLPS.SendKeys "[pagedn]"
        NumRow = 1 ' 重置行号到新页第一行
    Else
        NumRow = NumRow + 1 ' 跳到下一行
    End If
    
    ' 【可选但强烈推荐】添加防无限循环的保险
    ' 比如限制最多翻5页，避免目标物料号不存在时无限翻页
    Static pageCounter As Integer
    pageCounter = pageCounter + IIf(NumRow = 1, 1, 0) ' 只有翻页时计数
    If pageCounter > 5 Then
        MsgBox "未找到目标物料号，已终止循环"
        Exit Do
    End If
Loop Until IBMItemNum = ItemNum

关键修改说明 #

• 先获取再判断：把GetText放到循环最开头，这样第一次循环就能拿到第一行的物料号，直接判断是否匹配，找到就立刻退出，不会触发翻页。
• 修正翻页触发条件：改成NumRow = 10，对应每页10行的逻辑，处理完最后一行再翻页。
• 初始化变量：提前把IBMItemNum设为空，避免之前的运行残留值影响第一次判断。
• 添加防崩溃保险：限制最大翻页数，防止因为目标物料号不存在导致循环无限执行，把会话搞崩。

额外小提示 #

执行SendKeys后，最好加个短暂延迟，比如Application.Wait Now + TimeValue("00:00:01")，给绿屏会话足够的响应时间，避免操作还没完成就跑下一行代码。

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