312101_zh-CN

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文件

非常感谢您，现在可以正常使用了。:)