导出到excel的问题！(10分)

打开已有excel文件：
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := True;
ExcelApp.WorkBooks.Open( 'C:/aa/aa.xls' );
但是打开的文件是只读的，为什么？如何解决？

procedure WriteExcel(adsdata:Tdataset;sname,title:string);
var
ExcelApp:Variant;
i,j:integer;
begin
try
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Add;
ExcelApp.WorkSheets[1].Activate;
AdsData.First;
for j := 0 to AdsData.Fields.Count - 1do
begin
ExcelApp.Cells.item[3, j + 1] := AdsData.Fields[j].DisplayLabel;
end;
for i := 4 to AdsData.RecordCount + 3do
begin
for j := 0 to AdsData.Fields.Count - 1do
begin
ExcelApp.Cells.item[i, j + 1] :=''''+
AdsData.Fields[j].Asstring;
end;
AdsData.Next;
end;
ExcelApp.Visible := True;
finally
end;
end;

是否进程列表中有另外一个Excel（窗口不可见）打开了这个文件
我的意思是你的程序是否执行失败过。
结束其他的Excel进程，应该可以解决问题。

先判断aa1.xls是否存在？如果存在则删除。
然后拷贝aa.xls为aa1.xls,调用时打开aa1.xls就不会出现只读问题。

多人接受答案了。