Excel提取：如何将多个卡片构成的xls拆分成单独文件

mafia

自动拆分 Excel 很常见，简单的行式表格容易做，用 Python 等语言也不难实现，但有格式的卡片式表格就比较困难了，拆分后还要保留表格格式。

例题说明：现在需要将 Excel 中的若干卡片分别拆分到不同的 Excel 中，并以形如：001-fxs001 张三.xlsx 命名。


实现步骤：

1.     首先准备一个结果表格模板用来保证格式，表格内容为空，如下所示：

接下来分别读取原表每部分的数据依次填充到“模板”中，再分别保存成 Excel 文件就可以了。

2.     编写esProc SPL脚本：

把里面的SPL脚本列出来看下：

	A	B	C	D
1	D:/Excel 表格拆分 /
2	=file(A1+"总表（原始数据表）.xlsx").xlsopen()	[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA]	18
3	for	if   len(A2.xlscell("A"/(C2*(A3-1)+1)))==0	break
4		=file(A1/"结果模板.xlsx").xlsopen()
5		for B2	for C2	=A2.xlscell(B5/(C5+C2*(A3-1)))
6				=B4.xlscell(B5/C5;D5)
7		=C2*(A3-1)+3
8		=A2.xlscell("X"/B7)	=A2.xlscell("M"/B7)	=A2.xlscell("C"/(B7+1))
9		=file(A1/B8/"-"/C8/D8/".xlsx").xlswrite(B4)

采用循环卡片数量、固定行（18 行）和固定列（A 到 AA 列）读取每个原始 Excel 格值（D5 表达式）并将其写入模板对应格中（D6 表达式），需要注意的是写入模板的行始终是从 1 到 18 行。
B7 到 D8 取固定格值用于命名，如果不需要特殊命名则脚本更为简短。

按 F9 执行脚本可以看到目录下生成了 4 个文件：


其中“001-fxs001 张三.xlsx”的内容：


“003-fxs003 王五.xlsx”的内容：

搞定！