5,388
社区成员
发帖
与我相关
我的任务
分享
var
ExcelApp, WorkBook, WSheet: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
WorkBook := CreateOleObject('Excel.Sheet');
try
WorkBook := ExcelApp.WorkBooks.open(FileName);
WSheet := WorkBook.Sheets[1];
ExcelApp.ActiveWindow.DisplayGridlines := False;
//按行合并内容相同的单元
WSheet.Range['A1:A2'].Merge;
WorkBook.Save;
Application.ProcessMessages;
finally
workBook.Saved := True;
WorkBook.Close;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
end;