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
* Экспорт открытого файла данных на указанный лист книги Excel.
* Автор предложенного решения: Alex Vinogradov. Размещено в SPSSX-L 14.03.2004.

* Замечание 1: 
* Строка подключения к драйвеу DSN может варьироваться от компьютера к компьютеру. Чтобы получить нужную строку,
* импортируйте данные из excel, использую меню FILE>OPEN DATABASE>NEW QUERY и 
* испоьлзуйте строку подключения к DSN, которую предложит вам система.

* Замечание 2:
* Если в предложенном ниже коде заменить /REPLACE на /APPEND, содержимое редактора данных
* будет добавляться в конец указанного листа. 


GET FILE='c:\\program files\\spss\\employee data.sav'.

SAVE TRANSLATE
 /CONNECT='DSN=Excel Files;DBQ=C:\\temp\\myexcel.xls;DriverId=790;MaxBufferSize=2048;PageTimeout=5;'
 /TABLE="mysheet1"
 /TYPE=ODBC
 /REPLACE.

SELECT IF $CASENUM<40.
SAVE TRANSLATE
 /CONNECT='DSN=Excel Files;DBQ=C:\\temp\\myexcel.xls;DriverId=790;MaxBufferSize=2048;PageTimeout=5;'
 /TABLE="mysheet2"
 /TYPE=ODBC
 /REPLACE.