Выделение последней таблицы в текущем окне результатов

'(в ответ на вопрос) Пол, я думаю, единственный способ выделить последнюю таблицу
' в Навигаторе (окне результатов SPSS) - это воспользоваться скриптом, который
' (при желании) можно вызвать через синтаксис командой SCRIPT.
'Автор: Fabrizio Arosio, размещено в SPSSX-L, 10 июля 2000 года

' Перевод: А. Балабанов, 20.11.2008.
' Проверено: SPSS 15.0.0.

Sub Main
 Dim objOutputDoc As ISpssOutputDoc
 Dim objItems As ISpssItems
 Dim Index As Long
     If objSpssApp.Documents.OutputDocCount > 0 Then
        Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
     Else
         MsgBox "Не обнаружено окна с результатами!"
         Exit Sub
     End If

     objOutputDoc.ClearSelection
     Set objItems = objOutputDoc.Items

    For Index=objItems.Count-1 To 0 Step -1
        With objItems.GetItem(Index)
           If .SPSSType=SPSSPivot Then
               .Selected = True
               Exit Sub
           End If
        End With
    Next Index
    MsgBox "Не обнаружено мобильных таблиц!"
 End Sub
...
Navigate from here