Mise à jour d'un fichier excel zippé
par
, 05/08/2015 à 17h39 (552 Affichages)
Bonjour,
Je partage cette solution :
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 /*Mise à jour d'un fichier Excel zippé*/ %macro package(name,rep); /*Extraction de données */ %sysexec "C:\Program Files (x86)\WinRAR\WinRAR.exe" e "&rep.\test.zip" "&rep." -r; data _null_; x=sleep(5); run; /*Table mise à jour*/ data class; set sashelp.class; if _n_ in (1,2,3); run; proc export data =class OUTFILE= "&rep.\&name..xls" DBMS=EXCEL REPLACE; SHEET="test"; run; /*Mise à jour du package*/ filename &name "&rep.\&name..xls"; ods package(newzip) open nopf; ods package(newzip) add file=&name path="Excel/"; ods package(newzip) publish archive properties( archive_name="test.zip" archive_path="&rep." ); ods package(newzip) close; option noxwait xsync; %sysexec DEL "&rep.\&name..xls" ; FILENAME &name. CLEAR ; %mend; %package(test,c:\sas\dossier);