請幫忙寫一個宏來打開幫忙文件 行政崗位職責.HTML

joyark

請幫忙寫一個宏來打開幫忙文件 行政崗位職責.HTML



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

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编辑过]

淼漫

ThisWorkbook.FollowHyperlink "c:\行政崗位職責.HTML"

joyark

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

这个不明白，是要写代码吗？在哪里写这些代码呢？