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

tjfrog 2004-11-17 02:27:38

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)。谢谢，在线等待......

...全文

340 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

tjfrog 2004-11-17

打赏
举报

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

aiirii 2004-11-17

打赏
举报

>>Excelapplication.DisplayAlerts[0]:=false;

LCID: Integer;
begin
LCID := LOCALE_USER_DEFAULT;
FExcelApplication.DisplayAlerts[LCID] := False;

我以前也是用 DisplayAlerts 來設置, 沒問題啊

tjfrog 2004-11-17

打赏
举报

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

JavaD 2004-11-17

打赏
举报

再vbs中是可以
Application.DisplayAlerts = False
tmp.Delete
Application.DisplayAlerts = True

此处的Application就是‘excel.application'这个ole对象，
你可以看看能否取得这个对象，然后调用它的上述方法

delphi得到excel数据中得行数和列数

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Excel2000, OleServer; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ...

delphi中excel的属性大全、 (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj: