312101_zh-TW

liliconcom

合併多個Excel文件

你好

 

有時我必須結合很多excel文件。 但是“導入多個文件”菜單不適用於excel文件。 所以我為此編寫了一個JSL，我想在這里分享。 首先選擇一個excel文件，然後使用excel導入嚮導將其打開。 然後，腳本將在目錄中獲取導入設置和文件列表。 最後，打開目錄中的所有excel文件（.xls，xlsx，xlsm）並將其合併。 最終數據集在表的右端包含“源文件”列。

 

我希望這個腳本能對您的工作有所幫助。 任何反饋將不勝感激！

實用工具回复：合併多個Excel文件

哈羅，謝謝@MKawaguchi用於jsl文件。 非常有用。

 

是否還可以添加帶有日期（和時間）文件的列？

 

我嘗試了，但是沒有用。

 

謝謝。

回复：合併多個Excel文件

你好@ voy-voy ，

 

感謝您的評論。

我在“ scr_head”變量中添加了2行用於文件修改日期和時間。

mydate = format(Last Modification Date(fullfile),\!"y/m/d\!");
mytime = format(Last Modification Date(fullfile),\!"h:m:s\!");

然後，我在“ scr_tail”變量中添加了2行以創建日期和時間列。

dt << New Column(\!"File_Date\!", character, <<set each value(mydate));
dt << New Column(\!"File_Time\!", character, <<set each value(mytime));

結果，您將在合併的數據表中獲得file_date和file_time列。

 

我將整體腳本放在此評論的底部。 希望對您有所幫助！

//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>

 

回复：合併多個Excel文件

非常感謝您，現在可以正常使用了。:)