FAQ SASConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
%macro ouvre_excel; 
options noxwait noxsync; 
%LET tit1=%str(C:\) 
%LET tit2=%str(classeur1.xls); 
%LET titre=%str("&tit1&tit2); 
  
X &titre; 
  
data _null_; 
rc = sleep(2); 
run; 
%mend; 
%ouvre_excel;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DATA bidon1;  
input X1 X2 Y1 Y2 X5 $;  
cards; 
78 5 5 1161 ABÉLIEN 
35 6 3 1336 ALMÉRIC 
82 1 5 1499 ANIEL 
; 
run; 
%LET tit1=%str(excel|D:\blablbla\[Traitement_ACN.xls]P0IC1625!L6C1); 
%LET tit2=%str(:L20C10); 
%LET titre=%str(%sysfunc(compress('&tit1&tit2'))); 
options mprint symbolgen; 
filename write1 DDE "&titre"; 
DATA _null_; 
file WRITE; 
SET work.bidon1; 
put X1 '09'x X2 '09'x Y1 '09'x Y2 '09'x X5 '09'x; 
run; 
/*"'09'x" correspond au caractère tabulation*/

1
2
3
4
5
6
7
 
Filename fic dde 'excel|c:\exemples\essaidde.xls!l1c1:l15c2'; 
  
DATA FromXL 
INFILE fic dlm='09'x notab dsd missover 
input miles kilometres 
run;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Filename xlsfile dde 'excel|G :\test.xls!l1c1:l1c3'; 
  
DATA MyDS; 
/* déclaration de la fenêtre SAS Windows)*/ 
IF _n_ = 1 then do; 
Window MaFenetre color = black 
#3 'Ceci est la valeur de la ligne 1 colonne 1' c = cyan +2 var1 $10. c = orange  
#5 'Ceci est la valeur de la ligne 1 colonne 2' c = cyan +2 var2 $10. c = orange  
#7 'Ceci est la valeur de la ligne 1 colonne 3' c = cyan +2 var3 $10. c = orange; 
end; 
  
/* écriture dans Excel des valeurs saisies */ 
flsh = '!DDE_FLUSH'; 
file xlsfile; 
do while (upcase(_cmd_) ne 'STOP'); 
display MaFenetre; 
put var1 var2 var3 flsh; 
output; 
var1=''; var2=''; var3=''; 
end; 
stop; 
run;

1
2
3
4
5
6
7
8
9
%MACRO M_EXPORT (MyLib=, MyDir=); 
     data _null_ ; 
       set sashelp.vtable (where=(libname=compress(upcase("&MyLib")))) ; 
       call execute 
         ("PROC EXPORT DATA=" !! compress(libname !! '.' !!memname) 
             !! " OUTFILE='&MyDir" !! compress(memname !! ".XLS'") 
             !! " DBMS=EXCEL2000 REPLACE ; RUN ;") ; 
     run ; 
%MEND M_EXPORT;

1
2
3
proc import out=matable datafile='c:\fichierExcel.xls'; 
usedate=no; 
run ;