1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Задать коды пропущенных значений для всех числовых переменных
' (одинаковые "миссинги" для всех Numeric-переменных).
'Автор: Rafael Osorio (usenet, 25 февраля 2000, пятница)

Sub Main
	
	Dim i As Integer
	Dim info As ISpssInfo
	
	Set info = objSpssApp.SpssInfo

	For i = 0 To info.NumVariables - 1

		If info.VarType(i) = 0 Then
			
			objSpssApp.ExecuteCommands "MISSING VALUES " &info.VariableAt(i) &" (-8,-9)." , False
		
		End If
				
	Next

End Sub