*-- Lecture d'un fichier Excel depuis SAS, via une étape DATA --;
filename xlsdde DDE "excel|feuil1!l1c1:l10c3";
data ma_table;
infile xlsdde;
input variable1$ variable2 variable3;
run;

*-- Lecture d'un fichier Excel avec la procédure IMPORT en utilisant la syntaxe minimale -- ;
proc import datafile='c:\excel\pays.xls' out=matable;
run;
*-- Par défaut, c'est la première feuille qui est lue. L'instruction range permet d'en choisir une autre -- ;
proc import datafile='c:\excel\noms.xls' out=matable;
range=”Diplôme$”;
run;
*-- La syntaxe est différente selon le type de fichier lu -- ;
*-- Pour lire une table MS ACCESS, le nom de la base doit être indiqué dans l'instruction database, et le nom de la table dans l'option table. -- ;
*-- L'ajout de l'option dbms est nécessaire pour indiquer le format de la base de données à lire -- ;
proc import table='noms' out=work.noms dbms=access;
database="C:\tests\access\mabase.mdb”;
run;

*-- Information : le nom de la source de données définie dans l'administrateur de sources de données ODBC est « Excel pour SAS » -- ;
*-- Cette procédure SQL permet par exemple de créer une table SAS temporaire contenant les données de la feuille Nom$ -- ;
proc sql;
connect to odbc (dsn="Excel pour SAS");
create table test2 as
select * from connection to odbc
(select * from "Noms$");
disconnect from odbc;
quit;

*-- Ou l'assignation d'un bibliothèque pointant sur le classeur Excel permet ensuite de visualiser ses feuilles dans l'explorateur SAS, les lire ou en écrire de nouvelles -- ;
libname xlsdata odbc dsn="Excel pour SAS";

data test1;
set xlsdata.'Diplôme$'n;
run;

data xlsdata.adresses;
set matable;
run;

libname oledbxls oledb;

84 %put &sysdbmsg;
OLEDB: Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data
Source=c:\tests\excel\noms.xls;Extended Properties=Excel 8.0;Persist Security Info=True

libname new oledb
init_string = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source= c:\tests\excel\noms.xls;Extended Properties=Excel 8.0;Persist Security Info=True";

libname new oledb
init_string="Provider = Microsoft.Jet.OLEDB.4.0;
Data Source = c:\tests\excel\noms.xls;Extended Properties = Excel 8.0";

*-- Définition d'une bibliothèque pointant sur une base Oracle -- ;
libname oledbora oledb provider=MSDAORA
properties=("user id"=scott "password"=tiger
"data source"=oracle_path)
oledb_services=no;
*-- Définition d'une bibliothèque pointant sur un fichier Excel -- ;
libname oledbexc oledb provider="Microsoft.Jet.OLEDB.4.0"
properties=("data source" = 'C:\tests\excel\nom.xls')
provider_string="Excel 8.0"
oledb_services=no;

*-- Pour afficher (dans la fenêtre Output) la liste des fournisseurs OLE DB disponibles sur la machine où la procédure SQL est exécutée -- ;
proc sql;
connect to oledb
(init_string="Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=c:\tests\excel\noms.xls;Extended Properties=Excel 8.0");
select * from connection to oledb
(OLEDB::PROVIDER_INFO());
run;
quit;

*-- Assignation de la bibliothèque OLEDBORA sur Oracle -- ;
libname oledbora oledb
provider="MSDAORA"
properties=("User ID"=scott "Data Source"=ServOra Password=tiger)
oledb_services=yes;
*-- Assignation de la bibliothèque OLEDBSQL sur SQL Server -- ;
libname oledbsql oledb
init_string="Provider=SQLOLEDB.1;Initial Catalog=Northwind;
Data Source=ServSql;Integrated Security=SSPI;
Persist Security Info=True";
*-- Description des deux bases via des procédures Contents -- ;
proc contents data=oleora.salaires;
run;
proc contents data=oledbsql.employes;
run;

proc sql;
connect to OLEDB (provider="MSDAORA"
properties=("User ID"=scott "Data Source"=ServOra
Password=tiger)
oledb_services=yes);
create view consolidation as
select * from connection to OLEDB
(select codeemploi as "Code",
avg(salaire) as "Salaire_Moyen",
count(*) as "Nb_Employes"
from salaires
where codeemploi in ('PILOT1','FLTAT2','FINCLK')
group by CodeEmploi);
quit;
*-- Affichage de la vue sous format RTF -- ;
ods rtf file='c:\temp\euro.rtf';
proc print;
format salaire_moyen eurox8.;
run;
ods rtf close;

*-- Définition d'une bibliothèque, sur un nouveau fichier Excel -- ;
libname oleexcel oledb
init_string="Provider = Microsoft.Jet.OLEDB.4.0;
Data Source = c:\tests\excel\fusion.xls;Extended Properties = Excel 8.0";
*-- Jointure entre les deux bases externes (SQL Server et Oracle) dans un fichier Excel, via une étape data : création de la feuille fusion -- ;
*-- Les bibliothèques ont été assignées dans le point 1 -- ;
data oleexcel.fusion(drop=pays ville);
merge oledbsql.employes oleora.salaires ;
by id;
if
pays='FRANCE'; run;
*-- ême
M opération, avec une procédure SQL : feuille fusion 2 créée -- ; proc sql;
create table oleexcel.fusion2 as
select dateembauche, ora.id, codeemploi, salaire, division, nom, prenom
from oleora.salaires as ora, oledbsql.employes as sqlsv
where ora.id = sqlsv.id and pays='FRANCE';
quit;

PROC SERVER ID=shr2 authenticate=optional;
allocate library donnees "c:\tests\v8";
RUN;