delphi操作excel上下相邻单元格数据相同就合并单元格

Question

delphi操作excel上下相邻单元格数据相同就合并单元格数据如下:
----------
箱号
1
1
1
2
2
3
3
3
如何判断后将箱号相同的合并单元格?谢谢!

Answer 1

用下面代码调调看，就是控制Excel的操作，网上可以搜到很多，嘿嘿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;