2,496
社区成员
发帖
与我相关
我的任务
分享
strPath:=extractfilepath(paramstr(0))+'test.xls';
mexcelApp := CreateOleObject('excel.application');
mexcelApp.workbooks.open(strPath);
msheets:= mexcelApp.Workbooks[1].WorkSheets[1];
msheets.rows[1].delete;
mexcelApp.DisplayAlerts:=false;
mexcelapp.quit;