提取 Excel 指定单元格数据

zoomafia

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、此文件中的数据是个数据表，也可以按序表读取，编写esProc 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项的单元格位置可能不同，需要按项目名称去查找。

编写esProc 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条记录的对应列中

lb20309

学习了，谢谢

zch8691160

认真学习，谢谢!