Question

我正在尝试运行一个宏，在我更改采购订单后取消消息输出。我们最近更新了我们的SAP版本，现在这不起作用。

当它到达Outtext行时，它会导致运行时错误。你能帮忙吗？

'***Message Output button******
session.findById("wnd[0]/tbar[1]/btn[21]").press
On Error Resume Next
While Not (session.findById("wnd[0]/sbar").Text = "")
    session.findById("wnd[0]").SendVKey 0
Wend

On Error GoTo 0
Debug.Print session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3").rowCount
Row = 0
Outtext = session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL[1," & Row & "]").Text

If Outtext <> "ZZEU" Then
   Do While Outtext <> "ZZEU"
      Row = Row + 1
      Outtext = session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL[1," & Row & "]").Text
   Loop
End If

session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3").getAbsoluteRow(Row).selected = True
session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3/lblDV70A-STATUSICON[0,0]").SetFocus
session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3/lblDV70A-STATUSICON[0,0]").caretPosition = 0

'***Trash button
If Not (session.findById("wnd[0]/usr/tblSAPDV70ATC_NAST3/cmbNAST-NACHA[3,0]").Text = "") Then
    session.findById("wnd[0]/tbar[1]/btn[18]").press
    session.findById("wnd[1]/tbar[0]/btn[0]").press
End If

id无法找到控件

0 个答案: