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
'Begin Description 
'Скрипт создаёт новый документ Output, делает его окно окном назначения (Designated)
'и сохраняет его с указанным именем.
'Путь и имя файла указываются в начале скрипта.
'Автор: rlevesque@videotron.ca, 09.09.2001.
'End Description

' Перевод: А. Балабанов, 19.11.2008.
' Проверено: SPSS 15.0.0.
Option Explicit 

Sub Main 
Dim objOutputDoc As ISpssOutputDoc 
Dim strParam As String 
Dim strPath As String
Dim strFileName As String

Set objOutputDoc=objSpssApp.NewOutputDoc

' ******** Поменяйте содержимое следующих двух строк по своему усмотрению.
strPath 	= "c:\\temp\\"
strFileName = "FileName.spo"

'Указываем путь и имя файла для нового документа
objOutputDoc.SaveAs( strPath & strFileName)
'objSpssApp.OpenOutputDoc (strPath & strFileName)
'objOutputDoc.Close
'Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc
objOutputDoc.Visible=True
Set objOutputDoc=Nothing
End Sub