1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Sub Main
'Экспорт всех видимых объектов из назначенного окна результатов в XML:
'Перевод: А. Балабанов, 17.01.2009.
'Проверено: SPSS 10.0. В SPSS 10 экспорт производится в несколько индивидуальных XML-файлов,
'которые помещаются в архив .ZIP (вероятно, для последующей загрузки через SmartViewer Web Server).
'В SPSS 15 SpssFormatXml не
'распознаётся как константа, и экспорт производится в формат
'HTM. Вероятно, в версии 15 следует рассматривать возможность экспорта в XML посредством OMS - примеч. перев.
'Размещение: http://www.spsstools.ru/Scripte/ImportExport/ExportOutputViewerToXML.txt (.sbs).

Call objSpssApp.GetDesignatedOutputDoc.ExportDocument(SpssVisible, _
	"c:\\temp\\spssoutput.xml", SpssFormatXml, False)

End Sub