delphi 删除excel连续两行以上记录
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open( 'c:\test.xls' );
ExcelApp.WorkSheets['sheet1'].Activate;
for i:=1 to 2 do
ExcelApp.ActiveSheet.Rows[i].Delete;
excelapp.displayalerts:=false;
//excelapp.ActiveWorkBook.SaveAs('c:\test.xls');
excelapp.ActiveWorkBook.Save;
excelapp.quit;
以上代码删除的是第一、三行,本意是要删除第一、二行