4.10 横向合并 - 文件名转成列名

 

合并前:

Apple.xlsx

imagepng

Bread.xlsx

imagepng

Pork.xlsx

imagepng

合并后:

imagepng

实现代码:

A
1 =directory@p(“tmp/*.xlsx”)
2 =A1.(filename@n(~))
3 =A1.(T(~))
4 =A3(1).new(Name,Amount:${A2(1)},A3(2)(#).Amount:${A2(2)},A3(3)(#).Amount:${A2(3)})
5 =file(“Amount.xlsx”).xlsexport@t(A4)

A1 列出目录下的所有文件名
A2 获得不带扩展名的文件名
A3 把文件读成序表
A4 产生新序表的同时,把原序表中的 Amount 列转成各自的文件名


帮你早下班 - esProc 桌面版与 Excel 数据处理
4.9 纵向合并 - 文件名转成列值 - 文件个数不定
4.11 横向合并 - 一对多 - 复制数据