Option Explicit Sub Main ' Этот скрипт генерирует пустой файл данных с n строками' ' (n вводится пользователем в диалоговом окне) ' Размещено в новостной группе SPSS 10.04.2004. Автор: Raynald Levesque ' ' Файл создаётся не совсем пустым, а с переменной id - А.Б. Dim strCmd As String Dim vNbCases As Variant Dim lngNumCases As Long Do vNbCases =InputBox("Создать пустой файл? Сколько строк?", "Введите число строк","100") If vNbCases = "" Then Exit Sub Loop Until IsNumeric(vNbCases) strCmd = strCmd & "NEW FILE." & vbCrLf strCmd = strCmd & "INPUT PROGRAM." & vbCrLf strCmd = strCmd & "LOOP id=1 TO " & vNbCases & "." & vbCrLf strCmd = strCmd & "END CASE." & vbCrLf strCmd = strCmd & "END LOOP." & vbCrLf strCmd = strCmd & "END FILE." & vbCrLf strCmd = strCmd & "END INPUT PROGAM." & vbCrLf strCmd = strCmd & "FORMATS id (F8)." & vbCrLf strCmd = strCmd & "EXECUTE." & vbCrLf objSpssApp.ExecuteCommands (strCmd,False) End Sub