Bridge the Gap: Reading and Writing Excel Files Directly from the CAS Server

/* Préparation : Créer un fichier Excel factice sur le système de fichiers du contrôleur CAS ou un chemin accessible */ /* Dans un environnement réel, ce fichier 'mon_fichier.xlsx' existerait déjà. */ /* Pour la démonstration, nous allons simuler son contenu avec DATA étape. */ /* Créer un fichier CSV temporaire pour simuler le contenu d'un fichier Excel */ /* En pratique, vous auriez un fichier Excel existant */ filename mydata temp; data _null_; file mydata dlm=',' lrecl=200; put 'ID,Nom,Valeur'; put '1,Alpha,100'; put '2,Beta,150'; put '3,Gamma,200'; run; /* Charger le fichier CSV dans une table CAS qui sera ensuite 'enregistrée' comme Excel */ /* Ce n'est qu'une simulation. Normalement, l'Excel existerait déjà. */ proc cas; session casauto; table.loadTable / path='mydata.csv' caslib='casuser' promote=TRUE fileType='CSV' importOptions={getNames=TRUE}; quit; /* Utiliser PROC CASUTIL pour charger un fichier Excel (simulé) dans une table CAS */ /* Supposons que 'mon_fichier.xlsx' est disponible dans le caslib 'public' */ /* (chemin réel: /cas/data/public/mon_fichier.xlsx) */ /* Dans cet exemple, nous allons utiliser le fichier CSV temporaire comme source */ /* En réalité, le fichier d'entrée serait 'mon_fichier.xlsx' */ proc casutil; load casdata="mydata.csv" incaslib="casuser" outcaslib="casuser" casout="ma_table_excel" replace; promote casdata="ma_table_excel" incaslib="casuser"; run; proc print data=casuser.ma_table_excel; run;

/* Préparation : Créer un fichier Excel factice avec plusieurs feuilles pour démonstration */ /* En pratique, le fichier Excel 'ventes.xlsx' existerait déjà avec ces feuilles. */ filename xlfile temp; data _null_; file xlfile dlm=',' lrecl=200; /* Feuille 1: Ventes_Q1 */ put 'ID_Produit,Region,Ventes_Trim1'; put 'A1,Est,1000'; put 'A2,Ouest,1200'; /* Feuille 2: Ventes_Q2 */ put 'ID_Produit,Region,Ventes_Trim2'; put 'A1,Est,1100'; put 'A3,Nord,900'; run; /* Charger le fichier Excel (simulé par CSV) spécifiant une feuille et une plage */ /* Ici, nous allons simuler un chargement à partir d'un fichier Excel (XLFILE) */ /* en utilisant la fonctionnalité d'importation de fichiers PC. */ /* Dans un cas réel, le XLFILE serait un vrai fichier Excel. */ proc casutil; /* Supposons que xlfile contient les données des deux feuilles */ /* Nous allons charger la 'deuxième' feuille (Ventes_Q2) et une plage spécifique */ load casdata="xlfile.csv" incaslib="casuser" outcaslib="casuser" casout="ventes_q2_specifiques" replace importoptions=(fileType='CSV' getNames=true); promote casdata="ventes_q2_specifiques" incaslib="casuser"; run; /* Pour les fichiers Excel, les options sheet= et range= seraient utilisées comme ceci: */ /* load casdata="ventes.xlsx" incaslib="public" outcaslib="casuser" casout="ventes_q2_specifiques" replace importoptions=(fileType='XLSX' sheet="Ventes_Q2" range="A2:C3"); */ /* Ici, nous montrons comment le connecteur interpréterait des options similaires pour la démonstration */ proc print data=casuser.ventes_q2_specifiques; run;

/* Créer une table CAS pour l'exportation */ data casuser.produits; infile datalines dlm=','; input ID $ NomProduit $ Prix Quantite; datalines; P001,Laptop,1200,10 P002,Souris,25,50 P003,Clavier,75,30 ; run; proc cas; session casauto; table.promote / name='produits' caslib='casuser'; quit; /* Exporter la table CAS 'produits' vers un fichier Excel 'rapport_produits.xlsx' */ /* Le fichier sera créé dans le caslib 'casuser' (chemin réel sur le contrôleur CAS) */ proc casutil; save casdata="produits" incaslib="casuser" outfile="rapport_produits.xlsx" outcaslib="casuser" replace exportoptions=(fileType='XLSX' sheet="Inventaire"); run; /* Vérification (en listant les fichiers du caslib) */ proc casutil; list files caslib="casuser"; run;

/* Préparation : Charger un fichier Excel (simulé par une table CAS) dans CAS */ /* Nous allons créer une table CAS directement pour simuler des données issues d'Excel. */ /* En réalité, ceci viendrait d'un 'LOAD CASDATA="mon_fichier.xlsx" ...' */ data casuser.commandes_excel_simule; infile datalines dlm=','; input ID_Commande $ DateCommande :MMDDYY10. Montant Commande_Statut $; format DateCommande date9.; datalines; C001,01/15/2025,150.50,Terminée C002,02/20/2025,300.00,En cours C003,03/01/2025,75.25,Terminée C004,03/05/2025,210.00,Annulée ; run; proc cas; session casauto; table.promote / name='commandes_excel_simule' caslib='casuser'; quit; /* Utiliser PROC FEDSQL pour analyser les données chargées depuis Excel */ /* Filtrer les commandes terminées et calculer le total */ proc fedsql sessref=casauto; create table casuser.commandes_terminees as select ID_Commande, DateCommande, Montant from casuser.commandes_excel_simule where Commande_Statut = 'Terminée'; quit; proc print data=casuser.commandes_terminees; run; /* Calculer le montant total des commandes terminées */ proc cas; session casauto; simple.summary / table={name='commandes_terminees', caslib='casuser'} sumVars={{name='Montant'}}; quit;