Объединить множество файлов .xls в один .sav-файл

 

Загрузить как .sps Показать простым текстом

 

 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
* (Вопрос) Имеются 7 файлов Excel с одними и теми же переменными (колонками).
*	Требуется слить их в один sav-файл.
* (Ответ) Размещен в SPSSX-L. Автор: Raynald Levesque, 14.10.2004.
* 	Данный пример сливает 3 файла. Заметьте, что расширение ".xls" с именем файлов при вызове
  	макроса не указывается. Макрос сработает с числом файлов до 50
  	(это предел для команды ADD FILES).

*//////////////////////.
DEFINE !combine(pathd=!TOKENS(1) /fnames=!CMDEND)
!DO !file !IN (!fnames)
GET DATA /TYPE=XLS
   /FILE=!QUOTE(!CONCAT(!UNQUOTE(!pathd),!file,'.xls'))
   /SHEET=name 'employee1'
   /CELLRANGE=full
   /READNAMES=on .
SAVE OUTFILE=!QUOTE(!CONCAT(!UNQUOTE(!pathd),!file,'.sav')).
!DOEND

ADD FILES !DO !file !IN (!fnames) /FILE=!QUOTE(!CONCAT(!UNQUOTE(!pathd),!file,'.sav')) !DOEND.
!ENDDEFINE.
*//////////////////////.

SET MPRINT=yes.
!combine pathd='c:\\temp\\'
	fnames=employee1 employee2 employee3.
SET MPRINT=no.
Related pages

...

Navigate from here