5.5 纵向拆分 - 一行生成一张卡片

 

有员工信息表 Employee.xlsx 部分数据如下图所示:

imagepng

想要用这些数据为每位员工生成一个如下格式的卡片式表格,空的卡片文件名为 Card.xlsx:

imagepng

生成的卡片文件用员工的姓名命名,如:

Andrew.Fuller.xlsx:

imagepng

Janet.Leverling.xlsx:

imagepng

Margaret.Peacock.xlsx:

imagepng

Nancy.Davolio.xlsx:

imagepng

等等…

编写脚本:

A B C
1 =T(“Employee.xlsx”) [B1,B2,D2,D1,B3,B4,B5,B7,B6]
2 for A1 =file(“Card.xlsx”).xlsopen()
3 for C1 =B2.xlscell(B3,1;A2.field(#B3))
4 =file(A2.FirstName+“.”+A2.LastName+“.xlsx”).xlswrite(B2)

A1 读入员工信息表数据
C1 定义员工信息各列要写入卡片中的单元格名称序列
A2 循环每位员工
B2 打开空卡片文件为 Excel 对象
B3 循环每个要填写的单元格
C3 向当前要写的单元格填入当前员工 A2 中对应列号的内容
B4 将 B2 的 Excel 对象保存到以员工姓名命名的 Excel 文件中


帮你早下班 - esProc 桌面版与 Excel 数据处理
5.4 纵向拆分 - 按数据分段 (按过滤条件)
5.6 纵向拆分 - 多卡片拆成一张卡片一个文件