[原创]EXCEL中如何调用自己的帮助

tanhong · 发表于 2005-4-4 21:47

以下是引用cxffxc在2005-4-4 17:09:00的发言：
不错

谢谢版主的关注!还请多多赐教!

welcpa · 发表于 2005-4-4 22:30

'修正了BUG，

Private Sub Workbook_Open() Dim cbar1 As CommandBar Dim cCtrol As CommandBarControl On Error Resume Next CommandBars("Openhelp").Delete

Set cbar1 = Application.CommandBars.Add(Name:="Openhelp", Position:=msoBarFloating) cbar1.Visible = True

Set cCtrol = cbar1.Controls.Add(Type:=msoControlPopup) With cCtrol .Caption = "Openhelp" .OnAction = "订制自己的帮助.xls!OpenHelp.OpenHelp" End With End Sub

**********************************

不过在原来的程序中查看立即窗口看到

[auto_open] < [SetupFunctionIDs] < [SetupFunctionIDs] > [PickPlatform] < [PickPlatform] > [VerifyOpen] < [VerifyOpen] > 1 [RegisterFunctionIDs] < [RegisterFunctionIDs] > [auto_open] >

不太明白，还请楼上的朋友或其他高手指教！

[此贴子已经被作者于2005-4-4 22:46:54编辑过]

welcpa · 发表于 2005-4-4 22:38

忘了这句

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Openhelp").Delete End Sub

还有请楼主介绍一下hh.exe是如何制作的，什么用途，我没学过VB，是个菜菜，向楼主和各位朋友请教！

[em04]

[此贴子已经被作者于2005-4-4 22:44:51编辑过]

tanhong · 发表于 2005-4-4 22:50

谢谢楼上两位的完善！相互交流，是我进步的最好的法宝！现根据两位的完善重做实例如下：

o1TznyI4.rar (108.95 KB, 下载次数: 108)

[此贴子已经被作者于2005-4-4 22:50:58编辑过]

tanhong · 发表于 2005-4-4 22:58

以下是引用welcpa在2005-4-4 22:38:00的发言：
还有请楼主介绍一下hh.exe是如何制作的，什么用途，我没学过VB，是个菜菜，向楼主和各位朋友请教！

hh.exe是所有Windows系统中都能找到的，你只要搜索一下就能找到它，找到后把它copy到你的工作簿所在文件夹就行了

zhoujibin1 · 发表于 2005-4-5 00:10

ftx5znXi.rar (109.93 KB, 下载次数: 54)

帮助使用方法:

1.用软件制作网页

2.用软件把网页转换为.chm 文件

3.输入上传文件中的代码

非常简单实用的.

好长时间没来帮助大家,今天看到楼主做的东西,想法是好的,可是实现起来的步骤太不简洁.

shuiyuan · 发表于 2005-4-5 00:15

不错。如果文件退出后能删除自定义的工具栏就更好了

zhoujibin1 · 发表于 2005-4-5 00:20

本来就自动删除的,你没看到吗?太粗心了你呀!

shuiyuan · 发表于 2005-4-5 00:43

以下是引用zhoujibin1在2005-4-5 0:20:00的发言： 本来就自动删除的,你没看到吗?太粗心了你呀!

自动删除的代码在哪儿？没有找到？

第二次执行出错

welcpa · 发表于 2005-4-5 01:18

以下是引用shuiyuan在2005-4-5 0:43:00的发言：

自动删除的代码在哪儿？没有找到？

第二次执行出错

shuiyuan兄请我，我的帖子12楼和13楼，两段合在一起，就行了！

16楼的老兄，和我的大同小异，

Set cbar1 = Application.CommandBars.Add(Name:="MyOpenhelp", Position:=msoBarFloating, temporary:=True）

红色的是他和我的区别，不过他的代码有个缺陷就是只有关闭EXCEL程序才删除因为菜单是临时的，如果temporary:=False，则不删除，而我的代码只要关闭该文件就删除，即使EXCEL程序未关闭！

[此贴子已经被作者于2005-4-5 13:46:40编辑过]

		自动登录	找回密码
密码			免费注册

[原创]EXCEL中如何调用自己的帮助

看我如何完善的!