如何在SAP GUI脚本中获取表格总行数实现自动滚动？

方法1：直接获取表格总行数（最可靠） #

SAP GUI的Grid控件自带RowCount属性，可直接获取表格实际行数，用这个值作为循环上限就不会出现访问不存在行的问题。修改你的代码如下：

' 先缓存表格对象，避免重复查找控件
Set grid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell")
' 获取表格总行数
END_PAGE = grid.RowCount

For i = 1 To END_PAGE
    grid.setCurrentCell i, "AUFNR"
Next

如果表格是分页加载（滚动才加载更多行），可以在循环中动态更新行数，直到不再加载新行：

Set grid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell")
END_PAGE = grid.RowCount

Do
    ' 滚动到当前最后一行
    grid.setCurrentCell END_PAGE, "AUFNR"
    ' 等待SAP加载新行（可根据系统速度调整时长）
    WScript.Sleep 500
    ' 检查行数是否增加
    newRowCount = grid.RowCount
    If newRowCount > END_PAGE Then
        END_PAGE = newRowCount
    Else
        Exit Do ' 行数不再变化，说明已到表格末尾
    End If
Loop

方法2：错误捕获法（兼容特殊表格） #

如果部分特殊表格无法通过RowCount获取准确行数，可以用VBScript的错误捕获机制，尝试移动到下一行，触发错误则停止：

Set grid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell")
i = 1

On Error Resume Next ' 开启错误捕获
Do
    grid.setCurrentCell i, "AUFNR"
    If Err.Number <> 0 Then
        Exit Do ' 触发错误，说明当前行不存在
    End If
    i = i + 1
Loop
On Error GoTo 0 ' 关闭错误捕获

验证行元素是否有文本的实现方法 #

如果要验证某行单元格是否包含文本，可使用GetCellValue方法检查目标列的值：

Set grid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell")
i = 1

Do
    cellValue = grid.GetCellValue(i, "AUFNR")
    If cellValue = "" Then
        Exit Do ' 单元格为空，判定为末尾行
    End If
    grid.setCurrentCell i, "AUFNR"
    i = i + 1
Loop

注意：如果表格空行有默认值，或分页未加载的行返回空，这种方法可能不准确，优先使用前两种方案。

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