Сохранение результатов в файл с указанным (в скрипте) именем

'Begin Description 
'Скрипт сохраняет содержимое текущего (Designated) окна результатов, закрывает его и открывает новое окно
'Путь и имя файла для сохранения указываются в начале скрипта (см. коммент. ******)
'Автор: rlevesque@videotron.ca
'End Description

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

Option Explicit 

Sub Main 
Dim objOutputDoc As ISpssOutputDoc 
Dim strParam As String 

Dim i As Integer 
Dim objDocuments As ISpssDocuments 
Dim strPath As String
Dim strFileName As String
' ******** Поправьте следующие две строчки по своей надобности
strPath 	= "c:\\temp\\"	'Если оставите здесь пустоту, файл сохранится в папку, где установлена SPSS
strFileName = "FileName.spo"

Set objDocuments = objSpssApp.Documents 

If objDocuments.OutputDocCount > 0 Then 
	Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc 
	
	'Проверка, указан ли путь к файлу
	If InStr(strPath, "\\") > 0 Then 
		objOutputDoc.SaveAs strPath & strFileName 
	Else 'если путь не указан, сохраняем в папку SPSS
		objOutputDoc.SaveAs objSpssApp.GetSPSSPath & strFileName 
	End If

'закрываем текущий OutputDoc ...
objOutputDoc.Close
End If 

'открываем новое окно результатов и делаем его видимым
objSpssApp.NewOutputDoc.Visible = True
End Sub