delphi操作excel上下相邻单元格数据相同就合并单元格,该如何解决
delphi操作excel上下相邻单元格数据相同就合并单元格
delphi操作excel上下相邻单元格数据相同就合并单元格
数据如下:
----------
箱号
1
1
1
2
2
3
3
3
如何判断后将箱号相同的合并单元格?
谢谢!
------解决方案--------------------
用下面代码调调看，就是控制Excel的操作，网上可以搜到很多，嘿嘿
delphi操作excel上下相邻单元格数据相同就合并单元格
数据如下:
----------
箱号
1
1
1
2
2
3
3
3
如何判断后将箱号相同的合并单元格?
谢谢!
------解决方案--------------------
用下面代码调调看，就是控制Excel的操作，网上可以搜到很多，嘿嘿
- Delphi(Pascal) code
var
I, J: Integer;
ExcelApp: Variant;
WorkBook: Variant;
WorkSheet: Variant;
ExcelApp := CreateOleObject('Excel.Application');
try
ExcelApp.Caption := '对账数据导出';
ExcelApp.WorkBooks.Add;
WorkBook := ExcelApp.Workbooks[1];
WorkSheet := WorkBook.Worksheets.Item[1];
……
if WorkSheet.Cells[I,J].Value := WorkSheet.Cells[I,J+1].Value then
begin
ExcelApp.Range[WorkSheet.Cells[I,J], WorkSheet.Cells[I,J+1]].Select;
ExcelApp.Selection.MergeCells := True;
end
finally
ExcelApp.quit;
ExcelApp := unassigned;
end;