提取 Excel 指定单元格数据

1. 思路

提取指定单元格数据，分以下两种情况：

1、 单元格名称固定不变。此时可以用xlscell函数直接按单元格名称读取，如果整个数据区是个数据表格，也可以用T函数读取序表后，再按记录行号和列名读取。

2、 单元格不固定，是按照某种条件查找到目标单元格。把Excel文件打开成SPL中的Excel对象，循环每行每列的单元格，读取单元格数据，按条件检查是否是目标单元格。

2. 举例

2.1 单元格名称固定

文件book1.xlsx中有如下图所示数据，现在想要提取B4和C4单元格数据。

1、已经知道要取数的单元格名称，可以直接读取，编写SPL脚本:

	A
1	=file("E:/work/book1.xlsx”).xlsopen()
2	=A1.xlscell("B4",1)
3	=A1.xlscell("C4")

A1 将文件book1.xlsx打开成Excel对象

A2 读取B4单元格的值，参数1是Sheet的序号，如果是第1个Sheet也可以省略此参数

A3 读取C4单元格的值

2、此文件中的数据是个数据表，也可以按序表读取，编写SPL脚本:

	A
1	=T("E:/work/book1.xlsx”)
2	=A1(3).Quantity
3	=A1(3).Amount

A1 将文件book1.xlsx打开成SPL中的序表

A2 取A1序表的第3行的Quantity列数据

A3 取A1序表的第3行的Amount列数据

2.2 按条件查找单元格

某企业有多张资产负债表，其中一张如下图所示：

现在需要从各表中提取Cash、Accounts receivable、Other receivables、Accounts payable 等4项的Endingbalance(期末余额)数据进行财务分析，在不同表中这4项的单元格位置可能不同，需要按项目名称去查找。

编写SPL脚本:

	A	B	C	D
1	=create(Cash,'Accounts receivable','Other receivables','Accounts payable').insert(0)
2	=file("E:/zcfzb/zcfzb1.xlsx").xlsopen()
3	for A2.nrows	for A2.ncols	=trim(A2.xlscell(cellname(A3,B3)))
4			if A1.fname().contain(C3)	>A1(1).field(C3,A2.xlscell(cellname(A3,B3+2)))

A1 创建保存提取数据的序表，并插入一条新记录

A2 打开文件zcfzb1.xlsx为Excel对象

A3 循环文件每一行

B3 循环当前行的每一列

C3 读出当前单元格的内容并删除两端的空白，cellname函数将行列号转换成单元格名称

C4D4 判断当前单元格内容是否是A1序表的列名，若是则读取它右边第2个单元格内容，并保存在A1中第1条记录的对应列中