是否可以在excel vba中使用for next循环遍历sapgui数组？

Sub LoopSAPGUIArray()
    Dim sapApp As Object
    Dim sapConn As Object
    Dim sapSession As Object
    Dim sapGrid As Object
    Dim gridRowCount As Integer
    Dim gridColumnCount As Integer
    Dim i As Integer
    Dim j As Integer
    
    ' 创建SAPGUI对象
    Set sapApp = CreateObject("Sapgui.ScriptingCtrl.1")
    
    ' 创建连接
    Set sapConn = sapApp.OpenConnection("SAP System ID", True)
    
    ' 创建会话
    Set sapSession = sapConn.Children(0)
    
    ' 获取SAPGUI Grid对象
    Set sapGrid = sapSession.findById("Grid ID")
    
    ' 获取Grid行数和列数
    gridRowCount = sapGrid.RowCount
    gridColumnCount = sapGrid.ColumnCount
    
    ' 遍历Grid中的数据
    For i = 0 To gridRowCount - 1
        For j = 0 To gridColumnCount - 1
            ' 获取单元格数值并进行相应操作
            MsgBox sapGrid.GetCellValue(i, j)
        Next j
    Next i
    
    ' 关闭连接
    sapConn.CloseSession (False)
    Set sapSession = Nothing
    Set sapConn = Nothing
    Set sapApp = Nothing
End Sub