'begin description ' Копирует метки значений из одной указанной переменной в другую указанную переменную 'end description ' Автор: David Marso, 18.02.1998 ' Перевод: А. Балабанов, 15.11.2008 ' Проверено: SPSS 15.0.1.1. Option Explicit Sub Main Dim objSPSSInfo As ISpssInfo,ValueLabels() Dim varwithlabels As String, varwithoutlabels As String Dim NumVars As Long,I As Long,J As Long, NumLabels As Long Dim strSyntax As String 'Подставьте здесь имена своих переменных (varwithlabels - переменная с метками значений, varwithoutlabels - переменная, ' на которую нужно распространить метки значений), либо создайте пользовательский диалог в скрипте. ' Либо заставьте синтаксис передавать параметры этому скрипту, а в скрипте - разбирайте переданные параметры по переменным - примеч. перев. varwithlabels = "a" :varwithoutlabels="b" Set objSPSSInfo = objSpssApp.SpssInfo NumVars=objSPSSInfo.NumVariables-1 For I=0 To NumVars If objSPSSInfo.VariableAt(I)=varwithlabels Then NumLabels= objSPSSInfo.NumberOfValueLabels(I)-1 strSyntax= "VALUE LABELS " & varwithoutlabels & " " ReDim ValueLabels(1,NumLabels) For J=0 To NumLabels With objSPSSInfo strSyntax =strSyntax & .ValueAt(I,J) & " " & Chr$(34) & .ValueLabelAt(I,J) & Chr$(34) & " " End With Next J objSpssApp.ExecuteCommands(strSyntax,False) Exit For End If Next I End Sub