Office中国论坛/Access中国论坛

标题: 請幫忙寫一個宏來打開幫忙文件行政崗位職責.HTML [打印本页]

作者: joyark 时间: 2005-6-21 05:35
标题: 請幫忙寫一個宏來打開幫忙文件行政崗位職責.HTML
請幫忙寫一個宏來打開幫忙文件行政崗位職責.HTML [attach]11388[/attach]

原來是這樣可以打開,重新裝機後不能使用

Option Explicit

Sub OpenHelp()

Dim n As Variant

n = Shell(ThisWorkbook.Path & "\hh.exe " & _

ThisWorkbook.Path & "行政崗位職責.HTML", 1)

End Sub

[此贴子已经被作者于2005-6-21 16:24:34编辑过]

作者: 淼漫 时间: 2005-6-21 06:18
ThisWorkbook.FollowHyperlink "c:\行政崗位職責.HTML"

作者: joyark 时间: 2005-6-21 21:01
Sub test()

Dim fn

fn = Application.GetOpenFilename(("Help Files (*.chm), *.chm"))

If fn <> False Then

Application.Help fn

End If

End Sub

1.能否不用選擇自動打開

2.Excel文件宏控制直接打開及123.HTML快路夾內

3.原因加在菜單使用,方便日後查詢使用

謝謝幫忙

作者: jetplayer 时间: 2005-7-5 23:52
这个不明白，是要写代码吗？在哪里写这些代码呢？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)