Salut,
Parfois, je dois combiner beaucoup de fichiers Excel. Mais le menu "Importer plusieurs fichiers" ne fonctionnerait pas correctement pour les fichiers Excel. J'ai donc écrit un JSL pour cela et j'aimerais le partager ici. Il commence par sélectionner un fichier Excel et l'ouvrir à l'aide de l'assistant d'importation Excel. Ensuite, le script obtient les paramètres d'importation et la liste des fichiers dans le répertoire. Enfin, ouvrez tous les fichiers Excel (.xls, xlsx, xlsm) du répertoire et combinez-les. L'ensemble de données final contient la colonne des fichiers source à l'extrémité droite du tableau.
J'espère que ce script vous aidera dans votre travail. Tout commentaire serait vraiment apprécié!
Bonjour, merci @MKawaguchi pour le fichier jsl. C'est très utile.
Est-il possible également d'ajouter une collumne avec le fichier Date (et Heure)?
Je l'essaye mais ça ne marche pas.
Merci pour edvanced.
salut @ voy-voy ,
Merci pour votre commentaire.
J'ai ajouté 2 lignes dans la variable "scr_head" pour la date et l'heure de modification du fichier.
mydate = format(Last Modification Date(fullfile),\!"y/m/d\!");
mytime = format(Last Modification Date(fullfile),\!"h:m:s\!");
Ensuite, j'ai ajouté 2 lignes dans la variable "scr_tail" pour créer également des colonnes pour la date et l'heure.
dt << New Column(\!"File_Date\!", character, <<set each value(mydate));
dt << New Column(\!"File_Time\!", character, <<set each value(mytime));
En conséquence, vous obtiendrez la colonne file_date et file_time dans votre table de données combinée.
J'ai mis le script global au bas de ce commentaire. J'espère que ça aide!
//define err_msg function;
err_msg = Function( {string},
err_win = New Window( "Error",
V List Box(
H List Box(
Icon Box( "Error" ),
Text Box( string, <<SET wrap=""> 1, dt1 << Concatenate(dt, \!"Append to first table\!");
dt << closewindow))";
//concatenate modules;
final_script = scr_head || mysetting || scr_tail;
//run final script;
eval(parse(final_script));</SET>
Merci beaucoup mutch, maintenant cela fonctionne parfaitement.:)
