TExcelWorksheet.Delete在Excel2000下总是弹出确认是否删除的对话框，请教怎样屏蔽该对话框

Question

TExcelWorksheet.Delete在Excel2000下总是弹出确认是否删除的对话框，请教怎样屏蔽该对话框：
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
    ExcelWorksheet2.ConnectTo(ExcelWorkbook1.Worksheets[2] as _worksheet);
    ExcelWorksheet3.ConnectTo(ExcelWorkbook1.Worksheets[3] as _worksheet);
    ExcelWorksheet2.Delete;
    ExcelWorksheet2.Free;
    ExcelWorksheet3.Delete;
    ExcelWorksheet3.Free;
对于Excel2000，上述语句在执行到Delete时总是弹出Excel的删除确认对话框，而对于ExcelXP和Excel2003 却不存在该问题，请教该问题如何解决(我Uses的是Excel2000)。谢谢，在线等待......

Answer 1

再vbs中是可以
Application.DisplayAlerts = False
        tmp.Delete
        Application.DisplayAlerts = True此处的Application就是‘excel.application'这个ole对象，
你可以看看能否取得这个对象，然后调用它的上述方法

Answer 2

我试过
    ExcelApplication := TExcelApplication.Create(Application);
    ExcelApplication.ConnectKind := ckRunningOrNew;
    ExcelApplication.Connect;
    Excelapplication.DisplayAlerts[0]:=false;
但没效果。另外我这里使用DisplayAlerts需要有下标，我试过从0..5都没有效果。

Answer 3

>>Excelapplication.DisplayAlerts[0]:=false;LCID: Integer;
begin
  LCID := LOCALE_USER_DEFAULT;
  FExcelApplication.DisplayAlerts[LCID] := False;我以前也是用 DisplayAlerts 來設置, 沒問題啊

Answer 4

哈哈，问题解决了。DisplayAlerts确实可以，是我马马虎虎地在文件A中增加了DisplayAlerts[0]:=false;却去执行没有加DisplayAlerts[0]:=false;的文件B，哈哈哈哈哈，活该