最近在做一个导入Excel的功能时,原本是要逐行读取数据的,多数都是独立的,我们获取单元格的值就很容易,这里就不重复了。但有时候上下几格的值相同时,同事就把他们合并了,虽然这是合理的,但程序读取时就麻烦了,我们人眼判断就很容易,一看到区域就找左上角的单元格的值,但程序怎样判断左上角的单元格在哪里?
我们知道Excel几个Cell单元合并成Range后,值保存在左上方,也就是这个区域(1,1)单元格里,访问Range中其他Cell得到的都是空。那么问题来了,当我们程序打开Excel后,在访问某个Cell时,如何知道他是独立的还是被合并的?如何是合并的,怎么获取他的值?
通过一番研究,这个问题最后解决了,先说一下原理。
将某个单元格定义为一个Range,Range.MergeCells和Range.MergeArea这2个属性说明一下,判断Range.MergeCells是True还是False得出这个单元格是不是合并的,True就是合并的。Range.MergeArea这个单元格所在合并区域,访问他的Cells[1,1]就是我们说的左上角的单元格了。
下面上代码,由于下面的代码是从源代码中截取并做了修改,可能会有语法错误,但主要语句是正确,请大家见谅。
引用ComObj
var
ExcelApp,vRange:Variant;
vRow:integer;
begin
try
ExcelApp := CreateOleObject ('Excel.Application'); //创建Excel对象
ExcelApp.Visible := False ;
ExcelApp.DisplayAlerts:=false;
ExcelApp.WorkBooks.Open(RzButtonEdit2.Text); //打开某个Excel文件
ExcelApp.WorkSheets[1].Activate; //激活第1个工作表
vRow:=5; //从第5行开始
while (vRow<=ExcelApp.ActiveSheet.UsedRange.Rows.Count) do
begin
vRange:=ExcelApp.ActiveSheet.Range[ExcelApp.ActiveSheet.Cells[vRow,7],ExcelApp.ActiveSheet.Cells[vRow,7]];
//重点,创建Range对象,范围是自己单元格本身,在Excel中相当于选中这个单元格
if vRange.MergeCells then //判断这个单元格是不是合并的
begin
ShowMessage(vRange.MergeArea.Cells[1,1].Value);
//单元格所在MergeArea的Cells[1,1]就是左上方第1格
end else
if not vRange.MergeCells then //不是合并单元格的直接访问Cell
begin
ShowMessage(ExcelApp.ActiveSheet.Cells[vRow,7].Value);
end;
Inc(vRow);
end;
Except
end;
end;