251539_it-IT

liliconcom

Copia di immagini PNG dal file JMP in Excel

Sto provando a copiare i dati dal file JMP in Excel.

Ecco il mio copione:

Quando eseguo lo script, i dati vengono copiati in Excel ma quando apro il file excel mostra un valore di immondizia

 

Qualcuno può aiutarmi con questo?

 

 

dt = Open( "C:\Jay\JMP\JMP data\Images.jmp" );  
OutputFolder = "C:\Jay\JMP\JMP data\Test.xlsx";

ColNames = dt << Get Column Names("String"); 

DesColumnsList = {"pics"}; 
<BR />for(i = 1, i <= N Cols(dt), i++,
  If(Contains(DesColumnsList,ColNames[i]),
    Col = Column(dt,i); // Get Reference for Column 
    Col << Set Selected(1); 
    );
   );
   
dt_New = dt << Subset(Selected Rows(0),Selected Columns(1));  

Close(dt_New,Save(OutputFolder || "Test.xlsx"));

 

SceneggiaturaRe: Copia di immagini PNG da file JMP in Excel

Ciao @Fabbro12 ,

 

Questa è davvero una buona domanda e ho fatto alcune ricerche, ma non sono riuscito a trovare un modo di scripting per valutare il BLOB (che è ciò che è scritto nella cella di Excel), in un'immagine mentre salva la tabella di dati come file Excel . Invece, puoi salvare ogni singola immagine nella directory di output e quindi inserirla con Excel singolarmente. L'ho provato con il file Big Class Families.jmp e ho ottenuto questo:

 Potresti essere in grado di scrivere un file Powershell o un altro codice non JMP che scorre il numero di righe nel file excel per inserire immagini nella cella appropriata.

 

Ecco il codice con cui stavo giocando per iniziare almeno, in base alla sezione originale del codice:

dt = Open( "$Sample_Data/big class families.jmp" );  
OutputFolder = "\Desktop\test"; //or wherever you are saving things

ColNames = dt << Get Column Names("String"); 

DesColumnsList = {"pics"}; 
for(i = 1, i <= N Cols(dt), i++,
  If(Contains(DesColumnsList,ColNames[i]),
    Col = Column(dt,i); // Get Reference for Column 
    Col << Set Selected(1); 
    );
   );
   
dt_New = dt << Subset(Selected Rows(0),Selected Columns(1));  

Close(dt_New,Save(OutputFolder || "\Test.xlsx"));

For (k=1, k<=N Rows(dt), k++,
dt:picture[k]<<SAVE image=""></SAVE>

È davvero l'ultimo ciclo For che fa qualcosa di nuovo per te.

 

Non so come automatizzare l'inserimento delle immagini IN Excel.

 

Speriamo che questo sia un inizio!,

ds