1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'begin description
' Экспорт имен и меток переменных в текстовый файл для последующей загрузки в MS Access.
' (разделители полей - запятые)
'end description

' Условия	: в редакторе данных должен быть открытый набор данных
' Результаты: создаётся текстовый файл, где для каждой переменной построчно сохраняются её имя и метка (разделитель - ",").
' Указания	: выполните этот скрипт, после чего можете импортировать .txt-файл в MS Access.
' Автор: Raynald Levesque, 21.09.2000, rlevesque@videotron.ca

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


Option Explicit
Sub Main
Dim objSPSSInfo As ISpssInfo
Dim NumVars As Long,I As Long,J As Long, VarName As String, VarLabel As String
 
Set objSPSSInfo = objSpssApp.SpssInfo
NumVars=objSPSSInfo.NumVariables-1
Open "c:\\temp\\variable label.txt" For Output As #1

For I=0 To NumVars
	  VarName= objSPSSInfo.VariableAt(I)
      VarLabel= objSPSSInfo.VariableLabelAt(I)
		If Len(VarLabel)=0 Then 
           	VarLabel=VarName
        End If
        Print #1, VarName & "," & VarLabel 
Next I
Close #1
End Sub