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';
ExcelApplication: Variant; ExcelApplication := CreateOleObject('Excel.Application');
ExcelApplication.Workbooks.Open ('C:\报告.xlt'); ExcelApplication.WorkSheets[4].Activate;//如果这里换成WorkSheets[1]就没问题 ExcelApplication.Cells.Item[1,1] := 'ABCD';
EXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'