delphi关闭excel(100)

胡

胡鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-04

• #1

在delphi中用代码打开excel表并进行修改，怎样实现保存修改到原文件后退出，且不出现保存提示？

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-04

• #2

我也想知道哦.[]

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-04

• #3

ExcelApp.ActiveWorkBook.Saved := True; //不出现保存对话框

 

胡

胡鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-05

• #4

de410，这样保存不了数据，我要的结果是保存并退出。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-05

• #5

for I := 1 to ExcelApp.WorkBooks.Count do ExcelApp.WorkBooks.Save; ExcelApp.WorkBooks.Close; ExcelApp.Quit;或者可以另存为其他文件名： if isNew then ExcelApp.WorkBooks[1].SaveAs(sResultFile) else ExcelApp.WorkBooks[1].Save; ExcelApp.WorkBooks.Close; ExcelApp.Quit;

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-05

• #6

试试下面的代码：var FN: string; ExcelApp, FWorkBook: Variant;begin ...; ExcelApp.DisplayAlerts := False; FWorkBook := ExcelApp.WorkBooks.Open(FN); ...; ExcelApp.Save; ExcelApp.WorkBooks.Close; ExcelApp.DisplayAlerts := True; ExcelApp.Quit; ExcelApp := Unassigned; ...end;祝你好运。

 

胡

胡鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-06

• #7

还是不行，改用另存，然后删除原表。