251539_es-ES

liliconcom

Copiar imágenes PNG de un archivo JMP a Excel

Estoy tratando de copiar los datos del archivo JMP a Excel.

Aquí está mi guión:

Cuando ejecuto el script, los datos se copian en Excel, pero cuando abro el archivo de Excel, muestra un valor de basura

 

¿Puede alguien ayudarme con esto?

 

 

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

 

secuencias de comandosRe: Copiar imágenes PNG de un archivo JMP a Excel

Hola @Jackie_ ,

 

Esta es una muy buena pregunta, e hice algunas búsquedas, pero no pude encontrar una forma de secuencias de comandos para evaluar el blob (que es lo que está escrito en la celda de Excel), en una imagen, ya que está guardando la tabla de datos como un archivo de Excel . En su lugar, puede guardar cada imagen individual en el directorio de salida y luego insertarlas con Excel individualmente. Lo intenté con el archivo Big Class Families.jmp y obtuve esto:

 Es posible que pueda escribir un archivo Powershell o algún otro código que no sea JMP que recorra la cantidad de filas en el archivo de Excel para insertar imágenes en la celda adecuada.

 

Aquí está el código con el que estaba jugando para al menos comenzar, basado en su sección original de código:

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>

Es realmente el último bucle For que hace algo nuevo para ti.

 

No sé cómo automatizar la obtención de las imágenes EN Excel.

 

¡Ojalá esto sea un comienzo!,

SD