Hallo,
Manchmal muss ich viele Excel-Dateien kombinieren. Das Menü "Mehrere Dateien importieren" funktioniert jedoch nicht ordnungsgemäß für Excel-Dateien. Also habe ich eine JSL dafür geschrieben und möchte sie hier teilen. Es beginnt mit der Auswahl einer Excel-Datei und dem Öffnen mit dem Excel-Importassistenten. Anschließend erhält das Skript die Importeinstellungen und die Dateiliste im Verzeichnis. Öffnen Sie abschließend alle Excel-Dateien (.xls, xlsx, xlsm) im Verzeichnis und kombinieren Sie sie. Das endgültige Dataset enthält die Spalte mit den Quelldateien am rechten Ende der Tabelle.
Ich hoffe, dass dieses Skript Ihrer Arbeit hilft. Jedes Feedback wäre sehr dankbar!
Hallo, danke @ MKawaguchi für die jsl-Datei. Es ist sehr hilfreich.
Ist es auch möglich, eine Collumne mit der Datei Datum (und Uhrzeit) hinzuzufügen?
Ich versuche es, aber es funktioniert nicht.
Vielen Dank in edvanced.
Hallo @ Voy-Voy ,
Danke für deinen Kommentar.
Ich habe 2 Zeilen in der Variablen "scr_head" für Datum und Uhrzeit der Dateiänderung hinzugefügt.
mydate = format(Last Modification Date(fullfile),\!"y/m/d\!");
mytime = format(Last Modification Date(fullfile),\!"h:m:s\!");
Dann habe ich 2 Zeilen in die Variable "scr_tail" eingefügt, um auch Spalten für Datum und Uhrzeit zu erstellen.
dt << New Column(\!"File_Date\!", character, <<set each value(mydate));
dt << New Column(\!"File_Time\!", character, <<set each value(mytime));
Als Ergebnis erhalten Sie die Spalten file_date und file_time in Ihrer kombinierten Datentabelle.
Ich habe das Gesamtskript am Ende dieses Kommentars eingefügt. Ich hoffe, es hilft!
//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>
Vielen Dank mutch, jetzt funktioniert es perfekt.:)
