Fichiers XLSX à partir de SAS (proc tabulate)

Version imprimable

Bonjour,

Pour automatiser des sorties de fichiers Excel via SAS, j'utilise la proc tabulate et ODS htmlcss pour générer des classeurs Excel.
J'aimerais obtenir des fichiers XLSX en sortie.
Connaissez-vous une méthode pour y parvenir ?

Voici la façon dont j'ai programmé mes sorties :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 %Macro Tableau(variable); Proc tabulate data=fusion format=7.1; Format X X. Y Y. &variable &variable.; class X Y &variable / preloadfmt order=FORMATTED ; TABLE (X all),Y*(&variable All)*pctn<&variable all>="%"*f=pctfmt./ printmiss; run; %Mend; ods listing close; ODS htmlcss file='C:\Q1.xls'; %Tableau(Q1); ods listing close;
Merci d'avance pour votre aide.

Adrien

Bonjour,

Si tu veux des sorties xls, tu peux utiliser TAGSETS.EXCELXP.
voici un exemple.

Code:

1
2
3
4
5
6
7
8
9
 
ODS TAGSETS.EXCELXP FILE="C:\sortie.xls" OPTIONS(SHEET_LABEL=" " SHEET_NAME="CLASS") style=DEFAULT;
PROC TABULATE DATA=SASHELP.CLASS OUT=table;
CLASS NAME age;
VAR WEIGHT ;
TABLE (NAME all)*(age ALL) (all= 'Total'), 
 ( PCTN*f=numx6.2);
RUN;
ODS TAGSETS.EXCELXP CLOSE ;

j'ai ajouté un output si tu veux exploiter le résultat de la proc tabulate.

Si tu veux absolument des sortie xlsx, j'ai trouvé cette méthode sur le net a tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
ods tagsets.excelxp file="c:\sas\temp.xml";
proc print data=sashelp.class;
run;
ods tagsets.excelxp close;
ods path(prepend) work.templat(update);
filename temp url 'http://support.sas.com/rnd/base/ods/odsmarkup/tableeditor/tableeditor.tpl';
%include temp;
ods tagsets.tableeditor file="c:\sas\temp.html"
options(update_target="c:\sas\temp.xml"
excel_save_file="c:\sas\test.xlsx"
file_format="xlsx"
open_excel="no"
auto_excel="yes");
data _null_;
file print;
put "Save as Excel";
run;
ods tagsets.tableeditor close;

Cordialement.

14/10/2014, 12h00
Adrien M.

Bonjour,

J'arrive jusque là à générer des fichiers XLS.
Ce qui m'intéresse, c'est d'automatiser la génération de fichier XLSX.

J'ai testé la méthode que tu as trouvé sur le net mais ça ne fonctionne pas.

Néanmoins, je pense que c'est dans cette direction qu'il faille aller.

Créer un HTML ou XML -> Ouvrir avec Excel via SAS pour enregistrer en XLSX

Cdt

Adrien

Bonjour,

Citation:

Néanmoins, je pense que c'est dans cette direction qu'il faille aller.

Créer un HTML ou XML -> Ouvrir avec Excel via SAS pour enregistrer en XLSX

Créer les fichiers XML et puis les convertir en fichiers XLSX est maintenant possible.

Voici un exemple:

Code:

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
 
ODS TAGSETS.EXCELXP FILE="c:\temp\temp2_files\sortie.xml" OPTIONS(SHEET_LABEL=" " SHEET_NAME="CLASS") style=DEFAULT;
PROC TABULATE DATA=SASHELP.CLASS OUT=table;
CLASS NAME age;
VAR WEIGHT ;
TABLE (NAME all)*(age ALL) (all= 'Total'), 
 ( PCTN*f=numx6.2);
RUN;
ODS TAGSETS.EXCELXP CLOSE ;
 
 
options noxsync noxwait;
 
 
%macro test(default=c:\temp\temp2_files\,store=c:\temp\temp.vbs,ext=xml);
 data _null_;
 file "&store";
 put " Dim oXL ";
 put " Dim oFolder";
 put " Dim aFile";
 put " Dim FSO";
 put " Set oXL = CreateObject(""Excel.Application"")";
 put " Set FSO = CreateObject(""Scripting.FileSystemObject"")";
 put " oXL.DefaultFilePath = ""&default""";
 put " oXL.DisplayAlerts = False";
 put " if FSO.FolderExists(oXL.DefaultFilePath) then";
 put " Set oFolder = FSO.GetFolder(oXL.DefaultFilePath)";
 put " For each aFile in oFolder.Files ";
 put " If Right(LCase(aFile.Name), 4) = "".&ext"" Then";
 put " oXL.Workbooks.Open(aFile.Name)";
 put " oXL.Visible = False";
  put " oXL.ActiveWorkBook.SaveAs Left(aFile, Len(aFile) - 4) & "".xlsx"",51";
  put " oXL.ActiveWorkBook.Close SaveChanges = True";
 put " End If";
 put " Next";
 put " Set oFolder = Nothing";
 put " end if";
 put " FSO.DeleteFile(""&default\*.&ext""), DeleteReadOnly";
 put " oXL.DisplayAlerts = True";
 put " oXL.Quit";
 put " Set oXL = Nothing";
 
 run;
x "cscript ""&store""";
 %mend;
 
%test()

Cordialement