提取 Excel 指定单元格数据

 

1.   思路

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

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

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

 

2.  举例

2.1   单元格名称固定

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

..

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单元格的值,参数1Sheet的序号,如果是第1Sheet也可以省略此参数

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   按条件查找单元格

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

..

现在需要从各表中提取CashAccounts receivableOther receivablesAccounts 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.xlsxExcel对象

A3   循环文件每一行

B3   循环当前行的每一列

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

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