'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