请www,歪就歪和O*O等朋友进来, 能否在EXCEL中添加菜单并响应事件调用自己的程序？？另加上仅余的70分!!说到做到 ! (50分)

fatbug · 2002-09-19

我在DFW里只找到一个类似的帖子， http://www.delphibbs.com/delphibbs/dispq.asp?lid=159234 是歪就歪提的, <<在Notepad上加入自己的菜单项，并能响应Onclick事件>>        请问:  O*O, 歪就歪, DreamTiger ,question 等各位朋友, 能否 把你们得到的O*O当时写的代码也给我一份呢?? 谢谢!     我希望调用EXCEL，然后在其中添加菜单，可是如何让其 中添加的菜单项被点击后可以响应事件并调用自己的程序呢？ 恳请各位大侠指点一二！！（别用VBA！） 对了, 我的邮箱是 huntgold@21cn.com

rockjie · 2002-09-19

先找到excel的句柄，然后用菜单的插入菜单项的api 我以前插在了金山毒霸上面，呵呵有意思

fatbug · 2002-09-19

   to  ROCKJIE：能否给出详细一些的例子和说明？？

ZergWang · 2002-09-20

jsxjd · 2002-09-20

以下程序在Word 2000的“文件”菜单前添加“Custom”菜单， 并在其下添加“Import”菜单项。请仔细研究，我已经调试通过。     Excel应该是类似的. uses ...,ComObj; procedure TForm1.Button1Click(Sender: TObject); var   WordApp,   myMenuBar,   newMenu,   ctrl1:OleVariant; begin   WordApp   :=CreateOleObject('Word.application');   WordApp.visible:=true;   myMenuBar :=WordApp.CommandBars.ActiveMenuBar;   newMenu   := myMenuBar.Controls.Add(10,1,1,1,true);   newMenu.Caption := 'Custom';   ctrl1 := newMenu.CommandBar.Controls.Add(1,1,0,1,false);   ctrl1.Caption     := 'Import';   ctrl1.TooltipText := 'Import';   ctrl1.Style       := 2; end;

fatbug · 2002-09-20

to  jsxjd:        非常感谢你      添加菜单是没有问题的, 通过调用EXCEL中的对象方法即可完成      难在如何让这个菜单被点击后启动的是我用DELPHI编制的表单,      而不是VBA中的过程

rockjie · 2002-09-20

to:jsxjd 人家不是说不要VBA的嘛！括号里面的字也要看！~~呵呵 to:楼主，我晚上发给你！

fatbug · 2002-09-20

   to  rockjie:  我急切地等待你的回信!!

fatbug · 2002-09-21

   rockjie:  正在等你的代码呢?  祝中秋快乐

rockjie · 2002-09-21

哦，真是没办法啊，得到Excel的句柄你用spy++查一下就知道了，然后就是在上面加菜单啊， 我在找Excel的菜单句柄的时候卡壳了，因为Excel的最应用窗体上是不包括菜单的，所以我怎么 也得不到菜单句柄啊，你在研究一下吧，如果加好了菜单你可以这么定义一个消息 procedure HandleCommand(var msg: Tmessage); message wm_command; begin   inherited;   if msg.WParam = Ord('B') then     do your procedure end; 添加菜单AppendMenu(m1, 0, Ord('B'), '退出应用...');

rockjie · 2002-09-21

还有啊，如果你真的找不到Excel的句柄就问问人家用Shell怎么做吧，有可能涉及到COM了，对不起啊！ [

]

dirk · 2002-09-22

谁要收到了也给我一份啊～先谢了！ dirk_c@sina.com

fatbug · 2002-10-01

多人接受答案了。

fatbug · 2002-10-01

我已经找到方法了，关注： http://www.delphibbs.com/delphibbs/dispq.asp?lid=1356656

请www,歪就歪和O*O等朋友进来, 能否在EXCEL中添加菜单并响应事件调用自己的程序？？另加上仅余的70分!!说到做到 ! (50分)

fatbug

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

fatbug

Unregistered / Unconfirmed

ZergWang

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

fatbug

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

fatbug

Unregistered / Unconfirmed

fatbug

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

fatbug

Unregistered / Unconfirmed

fatbug

Unregistered / Unconfirmed

Similar threads