'Скрипт демонстрирует обращение к данным в открытом файле. 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