279389_ko-KR

liliconcom

동일한 구조의 다중 스프레드 시트를 가져 오는 루프

안녕 모두

 

나는 현재 프로젝트에서 일하고 있으며 JMP로 가져와야하며 아래 스크립트를 사용 하여이 파일을 가져 오는 4 개의 Excel 파일을 받았지만 최대 20 개의 파일이 관련되어 있음을 알았습니다. 내가 가지고있는 코드는 20 번까지 복사하여 붙여 넣지 않고 단순화 될 수 있으며 모든 Excel 파일의 구조는 동일합니다.

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 ),
 );

데이터 테이블Re : 동일한 구조의 다중 스프레드 시트를 가져 오는 루프

아래는 스크립트를 수정 한 것입니다.  각 파일의 입력에 필요한 요소를 가져 와서 각 입력 파일에 대해 호출되는 함수에 배치합니다.

사용중인 원시 csv 파일이 없기 때문에 테스트 된 코드는 아니지만 실행하고 로그에서 오류가 발생하면 필요한 간단한 수정 작업을 수행 할 수 있어야합니다.

또한 입력 할 다른 파일 목록을 작성하는 데 몇 가지 방법을 사용해야합니다.  그 방법에 대한 몇 가지 아이디어를 스크립트에서 살펴보십시오.

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>

 

Re : 동일한 구조의 다중 스프레드 시트를 가져 오는 루프

안녕하세요 tx ,

 

다시 한 번 귀하의 도움, 사과, 엑셀 파일을 남기기를 소홀히 한 것에 대해 대단히 감사드립니다. 여기에 풀어야 할 부분이 있습니다.

 

다시 감사합니다.

믹

Re : 동일한 구조의 다중 스프레드 시트를 가져 오는 루프

안녕하세요 tx , 

 

이것은 도움이되었고, 어떤 곳에서는 코드로 바이올린을 사용해야했지만 다른 곳에서는 코드와 함께 작동했지만 도움과 조언에 감사드립니다.

 

문안 인사,

믹.