delphi对Excel进行排序后，后台无法退出excel.exe进程！

[zhou_yang12]

如题
代码如下：
var
excelapp:Variant;
i,temp:integer;
key1: oleVariant ;
str:string;
begin
ExcelApp:=CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open('c:\1.xls');
ExcelApp.Visible:=true;
ExcelApp.DisplayAlerts:=false;
ExcelApp.worksheets[1].activate;
temp:=0;
for I := 1 to 200 do
begin
str:=ExcelApp.cells[i,1];
if str<>'' then
temp:=temp+1;
end;
ExcelApp.Range['a2:X14'].select;
ExcelApp.selection.Sort(Key1:=ExcelApp.range['h1']);
ExcelApp.ActiveWorkbook.Save;
ExcelApp.Quit;
end;

[lyhoo163]

直接操作EXCEL文件，造成文件需保存后，才能退出。保存时还要"确认"， 最好是读取EXCEL数据，在内在中排序，再写入ＥＥＸＣＥＬ。 如果是生成新的ＥＸＣＥＬ文件，不会出现你的问题。

[lyhoo163]

建议使用第三方控件，一快二便捷三占内存少。

[虎子8]

excelapp:=Unassigned;试试呢

[dyonggan]

1.ActiveWorkbook.Save 2.ActiveWorkbook.Close; 3.ExcelApp.Quit; 4.ExcelApp:=Unassigned;

[zhou_yang12]

谢谢各位！我先试试！在调试过程中把ExcelApp.selection.Sort(Key1:=ExcelApp.range['h1']);这句屏蔽掉是可以退出的！！！ 所以比较费解！！

[lyhoo163]

引用 5 楼 zhou_yang12 的回复:

谢谢各位！我先试试！在调试过程中把ExcelApp.selection.Sort(Key1:=ExcelApp.range['h1']);这句屏蔽掉是可以退出的！！！ 所以比较费解！！

说明排序下在执行中，一般情况下是排序未通过。

[zhou_yang12]

排序功能可以的！没问题！关键是range的参数问题！以前编程的时候如果用range[a1,b2]就会出现不能退出！而用range[a1:b2]就可以退出！！

[lyhoo163]

Range 参数： range 指定全表，或表的尾部 range[A1:C20] 指定区域 range[A1] 指定位置

[weixin_38499520]

visible设为FALSE

[linghengmao]

一般的操作，我一般是将EXCEL导入CLIENTDATASET的再进行操作

[jjpweb]

这个excelApp.quit关闭不了excel.exe，我之前也遇到过，没找到解决办法，不了了之。

[xxfly]

把这名，拆分为两句试试 ExcelApp.selection.Sort(Key1:=ExcelApp.range['h1']); Key1:=ExcelApp.range['h1']); ExcelApp.selection.Sort(Key1);