279389_fr-FR

liliconcom

Une boucle pour importer plusieurs feuilles de calcul avec la même structure

Salut tout le monde,

 

Je travaille actuellement sur un projet et j'ai reçu quatre fichiers Excel que je dois importer dans JMP et j'utilisais le script ci-dessous pour importer ces fichiers. Cependant, je viens d'apprendre que jusqu'à 20 fichiers pourraient être impliqués, je me demandais donc si le code que j'ai ci-dessous pourrait être simplifié pour que je ne copie pas et ne colle pas jusqu'à 20 fois, tous les fichiers Excel auront la même structure.

Names Default To Here( 1 );
Clear Symbols();

pb = Page Break Box();

fileopen= "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 1.xlsx";

//dt=open(fileopen,private);
 dt = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
            
  Worksheet Settings(
    1,
    Has Column Headers( 1 ),            
    Number of Rows in Headers( 1 ),
    Headers Start on Row( 2 ),
    Data Starts on Row( 3 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 18 ),
    Data Ends on Column( 39 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "" )
   ),
  ); 
Datasource = fileopen;
 
 
 dtvn = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
  Worksheet Settings(
    1,          
    Has Column Headers( 0 ),
    Number of Rows in Headers( 0 ),
    Headers Start on Row( 0 ),
    Data Starts on Row( 1 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 1 ),
    Data Ends on Column( 1 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "-" )
   ),
  );
col=Column(1);
col << Set Name("plate");
 
dt1=dt << Join(
        With( dtvn ),
        Copy second table formula( 0 ),
  Suppress main table formula evaluation( 0 ),
  Cartesian Join
); 

dt1 << New Column( "Scheme", Character, Nominal, Formula(Left(Right(:plate, 15), 2) ) );

fileopen= "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 2.xlsx";

//dt=open(fileopen,private);
 dt2 = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
            
  Worksheet Settings(
    1,
    Has Column Headers( 1 ),            
    Number of Rows in Headers( 1 ),
    Headers Start on Row( 2 ),
    Data Starts on Row( 3 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 18 ),
    Data Ends on Column( 39 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "" )
   ),
  ); 
Datasource = fileopen;
 
 
 dtvn1 = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
  Worksheet Settings(
    1,          
    Has Column Headers( 0 ),
    Number of Rows in Headers( 0 ),
    Headers Start on Row( 0 ),
    Data Starts on Row( 1 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 1 ),
    Data Ends on Column( 1 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "-" )
   ),
  );
col=Column(1);
col << Set Name("plate");
 
dt3=dt << Join(
        With( dtvn1 ),
        Copy second table formula( 0 ),
  Suppress main table formula evaluation( 0 ),
  Cartesian Join
); 

dt3 << New Column( "Scheme", Character, Nominal, Formula(Left(Right(:plate, 15), 2) ) );

fileopen= "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 3.xlsx";

//dt=open(fileopen,private);
 dt4 = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
            
  Worksheet Settings(
    1,
    Has Column Headers( 1 ),            
    Number of Rows in Headers( 1 ),
    Headers Start on Row( 2 ),
    Data Starts on Row( 3 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 18 ),
    Data Ends on Column( 39 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "" )
   ),
  ); 
Datasource = fileopen;
 
 
 dtvn2 = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
  Worksheet Settings(
    1,          
    Has Column Headers( 0 ),
    Number of Rows in Headers( 0 ),
    Headers Start on Row( 0 ),
    Data Starts on Row( 1 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 1 ),
    Data Ends on Column( 1 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "-" )
   ),
  );
col=Column(1);
col << Set Name("plate");
 
dt5=dt4 << Join(
        With( dtvn2 ),
        Copy second table formula( 0 ),
  Suppress main table formula evaluation( 0 ),
  Cartesian Join
); 

dt5 << New Column( "Scheme", Character, Nominal, Formula(Left(Right(:plate, 15), 2) ) );

fileopen= "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 4.xlsx";

//dt=open(fileopen,private);
 dt6 = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
            
  Worksheet Settings(
    1,
    Has Column Headers( 1 ),            
    Number of Rows in Headers( 1 ),
    Headers Start on Row( 2 ),
    Data Starts on Row( 3 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 18 ),
    Data Ends on Column( 39 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "" )
   ),
  ); 
Datasource = fileopen;
 
 
 dtvn3 = Open(
   fileopen, 
   Worksheets( "Sheet1" ),
  Worksheet Settings(
    1,          
    Has Column Headers( 0 ),
    Number of Rows in Headers( 0 ),
    Headers Start on Row( 0 ),
    Data Starts on Row( 1 ),
    Data Starts on Column( 1 ),
    Data Ends on Row( 1 ),
    Data Ends on Column( 1 ),
    Replicated Spanned Rows( 1 ),
    Replicated Spanned Headers( 0 ),
    Suppress Hidden Rows( 1 ),
    Suppress Hidden Columns( 1 ),
    Suppress Empty Columns( 1 ),
    Treat as Hierarchy( 0 ),
    Multiple Series Stack( 0 ),
    Import Cell Colors( 0 ),
    Limit Column Detect( 0 ),
    Column Separator String( "-" )
   ),
  );
col=Column(1);
col << Set Name("plate");
 
dt7=dt6 << Join(
        With( dtvn3 ),
        Copy second table formula( 0 ),
  Suppress main table formula evaluation( 0 ),
  Cartesian Join
); 

dt7 << New Column( "Scheme", Character, Nominal, Formula(Left(Right(:plate, 15), 2) ) );

dt8=dt1 << Concatenate(
   Data Table ( dt3 ),
   Data Table ( dt5 ),
   Data Table ( dt7 ),
 );

Automatisation et scriptsOrganisation du contenuAccès aux donnéesRe : Une boucle pour importer plusieurs feuilles de calcul avec la même structure

Salut @txnelson ,

 

Cela a très bien fonctionné, j'ai dû jouer avec le code à certains endroits, mais à part cela, cela a bien fonctionné, merci beaucoup pour votre aide et vos conseils.

 

Salutations,

Mick.

 

Re : Une boucle pour importer plusieurs feuilles de calcul avec la même structure

Salut @txnelson ,

 

Encore une fois, merci beaucoup pour votre aide, excuses, j'ai négligé de laisser le fichier Excel, il y en a un peu ici à déballer, je vais le parcourir et vous faire savoir comment je m'y suis déroulé.

 

Merci encore.

Mick

Re : Une boucle pour importer plusieurs feuilles de calcul avec la même structure

Vous trouverez ci-dessous une modification de votre script.Il prend les éléments requis pour la saisie de chaque fichier et les place dans une fonction appelée pour chaque fichier d'entrée.

Ce n'est pas du code testé, car je n'ai pas les fichiers CSV bruts que vous utilisez. Cependant, si vous l'exécutez et recherchez dans le journal les erreurs qu'il crée, vous devriez pouvoir apporter les correctifs simples dont il aura besoin.

En outre, cela nécessite que vous utilisiez une méthode pour créer la liste des différents fichiers à saisir.Jetez un œil au script pour quelques idées sur la façon de procéder.

Names Default To Here( 1 );
Clear Symbols();

// Create the start of the final data table
dtFinal = New Table( "Final Table" );

// Build or Create a list with all of the paths to the files to be read in
// This could be a manually typed in list such as
fileList = {
 "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 1.xlsx",
 "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 2.xlsx",
 "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 3.xlsx",
 "\\prusntyfil01\home$\sv001241\Desktop\Project Rodger\File 4.xlsx" 
};
// or it could be that all files to be read in are placed into a separate
// folder, and then that folder is read and the list of files is created
// from there
fileList = Files In Directory("Path to folder");
// or some other interactive way of selecting the files
fileList = {};
nw = New Window("Pick Files to Process", <<MODAL></MODAL>