' riferimento alla griglia dei risultati
Dim SapObjTable As SAPFEWSELib.GuiGridView
Set SapObjTable = session.FindById("...")
  
nRowTable = CInt(SapObjTable.RowCount - 1)
nColTable = CInt(SapObjTable.ColumnCount - 1)

Dim TableColumns As Object
Set TableColumns = SapObjTable.ColumnOrder

Dim rowValue() As Variant
ReDim rowValue(nColTable)
  
'cella in alto a sx sul foglio in cui verrà riportata la griglia
Dim PosOutput As Range
Set PosOutput = Fa.Range("e11")
  
'nomi delle colonne
For ct = 0 To nColTable
   rowValue(ct) = CStr(TableColumns(ct))
Next
Fa.Range(PosOutput, PosOutput.Offset(0, nColTable)) = rowValue()
    
'righe di valori
For rt = 0 To nRowTable
  For ct = 0 To nColTable
     rowValue(ct) = SapObjTable.GetCellValue(rt, CStr(TableColumns(ct)))
  Next
  Fa.Range(PosOutput.Offset(rt + 1, 0), PosOutput.Offset(rt + 1, nColTable)).Value = rowValue()
Next