Создать пустой файл данных с <i>n</i> строчками

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