1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
'Скрипт демонстрирует обращение к данным в открытом файле.
Sub Main
	Dim objDocuments As ISpssDocuments
    Dim objDataDoc As ISpssDataDoc
	Dim strCmd As String
	strCmd = "GET FILE='c:\\Program Files\\SPSS\\Employee data.sav'."
	objSpssApp.ExecuteCommands strCmd , True
		
    Set objDocuments=objSpssApp.Documents
    Set objDataDoc = objDocuments.GetDataDoc(0)

    ' Получаем данные в указанном диапазоне в текстовом виде:
    Dim SpssTextData As Variant
    SpssTextData = objDataDoc.GetTextData ("salary", "jobtime", 1, 2)
    MsgBox "Значение Salary для первого наблюдения: " & SpssTextData(0,0)
    MsgBox "Значение Jobtime для второго наблюдения: " & SpssTextData(2,1)

End Sub