1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Скрипт показывает, как можно получить информацию о текущем файле данных и показать её пользователю
' разными способами. Скрипт
'   - отображает имя файла и число переменных в активном окне результатов;
'   - отображает число наблюдений во всплывающем окне.
'http://www.spsstools.net

Sub Main
Dim strDataName As String		'Имя файла данных
Dim varNumVars As Variant 		'Число переменных
Dim strContent As String
Dim lngNumCases As Long			'Число наблюдений
    With objSpssApp.Documents.GetDataDoc(0)
		strDataName = .GetBannerText
		varNumVars = .GetNumberOfVariables
		strContent = "Число переменных в файле " & strDataName & ": " & varNumVars & " шт."
		' Показываем число переменных в окне результатов
        objSpssApp.GetDesignatedOutputDoc.InsertTitle("Число переменных",strContent)
        
        lngNumCases = .GetNumberOfCases
        ' Во всплывающем окне показываем число наблюдений
        MsgBox "Число наблюдений в файле данных: " & lngNumCases  & " шт."
    End With
End Sub