delphi程序不能向excel写入内容？

Question

delphi程序，打开一个有5个sheet的excel文件后，其中4个sheet可以写入内容，偏偏sheet4无法写入内容，一运行写入程序系统就报告“raised exceptionclass EoleExceptionwith message：Ole error 800A03EC”为什么？程序如下：var
        ExcelApplication: Variant;    ExcelApplication := CreateOleObject('Excel.Application');
    ExcelApplication.Workbooks.Open ('C:\报告.xlt');    ExcelApplication.WorkSheets[4].Activate;//如果这里换成WorkSheets[1]就没问题    ExcelApplication.Cells.Item[1,1] := 'ABCD';

Answer 1

*******  导出到excel
EXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'

Answer 2

http://community.csdn.net/Expert/topic/3194/3194328.xml?temp=.8890497