用Delphi5控制 EXCEL 的退出 急！！！(200分)

蒋

蒋劲刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-27

• #1

在Dephi5中我使用了Server页中的ExcelApplication 控件
我想不让Excel 自已关闭,即用鼠标点击Excel 的窗口关闭按钮时不能关闭
Excel 只能用我的程序关闭Excel。

我在ExcelApplication中定义
procedure TForm1.eaWorkbookBeforeClose(Sender: TObject; var Wb,
Cancel: OleVariant);
begin
Cancel := True;
end;

不起作用，不知为什么？
望各位高手能帮我解决这个问题。谢谢！！

 

蒋

蒋劲刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-27

• #2

盼！

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-27

• #3

你把VISIBLE设置为FALSE好了
或者用OLE连到程序里

 

蒋

蒋劲刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-27

• #4

我的程序是要用户在Excel里输入数据的，所以必须给用户看到，
另外用OLE连到程序里，是什么意思？
谢谢！

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-27

• #5

有个api可以将右上角的关闭按钮失效，记不得了。

 

蒋

蒋劲刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #6

盼

 

R

robert.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #7

OLE连到程序里就是将Execl的界面嵌入到你的程序窗体中用ole很好实现，
delphi也自带此类例子...只有这样才能真正控制关闭否则你是没法限定它自已的关闭的...

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #8

用quit

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-29

• #9

把 Cancel := true 换成 abort 试试

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #10

同意robert.l的意见！（名字怎么这么鬼怪？）
使用 OLEContainer component

Use the OLEContainer component to provide your application with the ability to link and embed objects from an OLE server.

When you activate an object inside the OLE container, control transfers to the OLE server application, so the user can access all the functionality of the server application from within your container application.
可以做到 远程服务器内嵌……
打开时 doverb(0)<<--设置为零。
你的 Excel 就是你程序的一部分了，别人想关闭也没有办法～

 

蒋

蒋劲刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-06

• #11

但是如果使用ＯＬＥ嵌入自己的程序，　如何用程序来向它写入数据呢！

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-06

• #12

很容易，用VBA～远程控制……
你可以看看我回答的问题～

 

于

于小澜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-09

• #13

...

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-10

• #14

to hsw:
来个例子吧。

 

D

dxl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #15

我也想知道！

 

于

于小澜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #16

ovExcel := CreateOleObject('Excel.Application');
ovExcel.WorkBooks.Add('D:/template/Fp.xlt');
ovExcel.ActiveSheet.Cells[7,1] := FindField('TABLE1_3').AsString;
ovExcel.ActiveSheet.Cells[7,4] := FindField('TABLE1_4').AsString;
ovExcel.ActiveSheet.Cells[7,5] := FindField('TABLE1_5').AsString;
ovExcel.ActiveSheet.Cells[7,6] := FindField('TABLE1_6').AsInteger;
ovExcel.ActiveSheet.Cells[7,7] := FindField('TABLE1_7').AsInteger;
ovExcel.ActiveSheet.Cells[7,8] := FindField('TABLE1_8').AsFloat;
vExcel.Visible := True;
ovExcel.Quit;

蒋劲刚：
你能将Server页中的ExcelApplication 控件调用全过程给我贴过来吗？

 

A

ArJianzeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-22

• #17

pan

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-07

• #18

多人接受答案了。